home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / tool / reimia / reimia.bas < prev    next >
BASIC Source File  |  1994-11-16  |  57KB  |  1,179 lines
  1. 1000 '====================================================================
  2. 1010 '
  3. 1020 '　　　　ＣＤ＆ＰＣＭ　ＰＬＡＹＥＲ　－　麗美亜　－　Ver 1.21
  4. 1030 '                Programed By　  月しま　亜美レイ裕敏
  5. 1040 '                        (C)1994　SGS SOFT
  6. 1050 '
  7. 1060 '====================================================================
  8. 1070  CLEAR:CLEAR ,,512,(500+(FRE(4)\(1000000))*900)*1024
  9. 1080  SCREEN @0:COLOR 7,%0:WIDTH 80,25:CONSOLE 0,24,2:CLS:DEFINT A-Z
  10. 1090  VIEW(0,0)-(1023,511):WINDOW(0,0)-(1023,511)
  11. 1100  FREE&=(500+(FRE(4)\1000000)*900)*1024:GOSUB *PAL_01:'GOSUB *PAL_02
  12. 1110  GOSUB *PATTAN_MAKE
  13. 1120 '
  14. 1130 '===================================================================
  15. 1140 'オープニング
  16. 1150 '===================================================================
  17. 1160 '
  18. 1170  COLOR ,0:CLS:GOSUB *PAL_02:'GOTO 1230
  19. 1180  XX=168:FOR YY=-8 TO 192:GOSUB *ABOUT_02
  20. 1190  IF YY>=0 AND YY<192 THEN LINE(XX,YY)-(XX+303,YY+1),PSET,0,BF
  21. 1200  NEXT YY:WAIT 200
  22. 1210  FOR YY=192 TO 480 STEP 2:GOSUB *ABOUT_02
  23. 1220    LINE(XX,YY)-(XX+303,YY+2),PSET,0,BF:NEXT YY
  24. 1230  GOSUB *VIEW_MAKE
  25. 1240 '
  26. 1250 '===================================================================
  27. 1260 '初期設定
  28. 1270 '===================================================================
  29. 1280 '
  30. 1290  ON ERROR GOTO *エラールーチン
  31. 1300  HZ%=8:SEC2!=2:GOSUB *SECLEAR_02:GOSUB *SESTAT_02
  32. 1310  DIM INF(5),STAT(8),CDST(20),PCMST(20),CDS&(10),PRO(20)
  33. 1320  TRA=0:REP=0:PAU=0:ENTRA=0:GOSUB *CDST_LED
  34. 1330  YY=90:GOSUB *TR_LED:GOSUB *MI_LED:GOSUB *SE_LED:GOSUB *FR_LED
  35. 1340  GOSUB *RECRESET_01
  36. 1350  MOUSE 1,320,240,1:LIV=0
  37. 1360  FOR I=0 TO 1:MOUSE 3,I,4:NEXT I
  38. 1370  FOR L=0 TO 3:VL(L)=3-(L=0 OR L=3)*124
  39. 1380    IF L<>3 THEN VL_MODE=L:VL=VL(L):GOSUB *OUT_VL01:NEXT L:ELSE NEXT L
  40. 1390  VL_MODE=3:PCMST(5)=127:BVL=3:VL=127
  41. 1400  FOR I=3 TO 127 STEP 4:GOSUB *VL_METER:NEXT I
  42. 1410  PTR=0:PCO=0:PCOUNT=1 : CO=7:GOSUB *PROSET_01S:GOSUB *PROSET_02S
  43. 1420  CO=7:YE=0:A$="DEL"  :GOSUB *PRORESET_SU
  44. 1430       YE=1:A$="RESET":GOSUB *PRORESET_SU
  45. 1440  GOSUB *PROPLAY_01S:GOSUB *FREQRESET_02
  46. 1450  OTIM&=0:GOSUB *ORDER_TIME
  47. 1460  GOSUB *PAL_02
  48. 1470  CDST(8)=0:GOSUB *TIME_CHECK:GOSUB *CD_STAT:TI$=TIME$:DA$=DATE$
  49. 1480 '
  50. 1490 '===================================================================
  51. 1500 'メイン
  52. 1510 '===================================================================
  53. 1520 '
  54. 1530  MO=1:GOTO *CD_INF
  55. 1540  E=0:CDST(9)=0:TRA=0
  56. 1550 *MAIN_01
  57. 1560  GOSUB *TIME_CHECK:GOSUB *CD_STAT
  58. 1570  IF OTO%(0)=0 THEN *MAIN_02
  59. 1580  PCMST(0)=ABS(PLAY(2))
  60. 1590  IF PCMST(0)=0 AND BP=1 THEN CO=0:I=9:GOSUB *F_BOTTAN:BP=PCMST(0)
  61. 1600 *MAIN_02
  62. 1610  IF MOUSE(2,0)=-1 THEN 1620 ELSE IF MOUSE(2,0)=0 THEN *MAIN_01
  63. 1620   MX=MOUSE(0):MY=MOUSE(1)
  64. 1630  FOR I=0 TO 10
  65. 1640    IF MX>=BODA(I,0) AND MY>=BODA(I,1) AND MX<=BODA(I,2) AND MY<=BODA(I,3) THEN LIV=I+1:I=10
  66. 1650  NEXT I:IF LIV=0 THEN *MAIN_03
  67. 1660  ON LIV GOSUB *FREQRESET,*VOLUME,*VLMODE,*CD_SYNC,*SE_FREQ,*MANUAL_TIME,*PROSET,*PRORESET,*PROPLAY,*CALLENDER_02,*RECRESET_01
  68. 1670  GOTO *MAIN_04
  69. 1680 *MAIN_03
  70. 1690  FOR I=0 TO 19
  71. 1700    IF MX>BX(I) AND MX<BX(I)+59 AND MY>BY(I) AND MY<BY(I)+39 THEN LIV=I+1:I=19
  72. 1710  NEXT I:IF LIV=0 THEN 1770
  73. 1720  CO=1:I=LIV-1:GOSUB *F_BOTTAN : GOTO 1730
  74. 1730  IF LIV>=1 AND LIV<=8 THEN GOSUB *CD_CON :GOTO *MAIN_04
  75. 1740  ON (LIV- 8) GOSUB *FREQ_JUD,*SEPLAY,*FREQ_JUD,*SECLEAR
  76. 1750  ON (LIV-12) GOSUB *SEREC,*CDSEREC,*SELOAD,*SESAVE,*SESTOP
  77. 1760  ON (LIV-17) GOSUB *DUMMY,*終了,*SYS_01
  78. 1770 *MAIN_04:LIV=0:GOTO *MAIN_01
  79. 1780 '
  80. 1790 '====================================================================
  81. 1800 'ＳＥ　コントロール
  82. 1810 '====================================================================
  83. 1820 '
  84. 1830 '－　ＰＣＭ音声ファイルＳＡＶＥ　－－－－－－－－－－－－－－－－－－
  85. 1840 *SESAVE
  86. 1850  IF OTO%(0)=0 THEN 1970 :ELSE GOSUB *MOUSE_ROCK
  87. 1860  Q=1:GOSUB *YN_JUD:IF YE=0 THEN 1960 :'データを保存？
  88. 1870  GOSUB 2420:CD PAUSE
  89. 1880  A$="セーブ":GOSUB *FMESSAGE_01
  90. 1890  LINE INPUT F$
  91. 1900  MO=INSTR(F$,"?"):IF MO<>0 THEN GOSUB *FILE_LIST:CLS 4:GOTO 1880
  92. 1910  CLS 4:GOSUB 2430:IF LEN(F$)=0 THEN 1960
  93. 1920  GOSUB *FMESSAGE_02
  94. 1930  MOUSE 6,0,PAND4%,PDOT4%:GOSUB 2220:SAVE@ F$,OTO%
  95. 1940  GOSUB *FMESSAGE_03
  96. 1950  WAIT 100:MOUSE 6,0,PAND1%,PDOT1%:GOSUB *SND_NAME
  97. 1960  GOSUB *MES_CLS:IF CDST(1)=0 THEN CD CONT
  98. 1970  CO=0:I=15:GOSUB *F_BOTTAN : RETURN *MAIN_04
  99. 1980  Q=2:GOSUB *YN_JUD:IF YE=0 THEN 1860 :'ファイルを上書き？
  100. 1990  KILL F$:GOTO 1920
  101. 2000 '－　ＰＣＭ音声ファイルＬＯＡＤ　－－－－－－－－－－－－－－－－－－
  102. 2010 *SELOAD
  103. 2020  GOSUB *MOUSE_ROCK:IF E<>0 THEN GOSUB *SND_NAME
  104. 2030  Q=3:GOSUB *YN_JUD:IF YE=0 THEN 2190 :'ファイルを読出？
  105. 2040  GOSUB 2420:CD PAUSE
  106. 2050  A$="ロード":GOSUB *FMESSAGE_01
  107. 2060  LINE INPUT F$
  108. 2070  MO=INSTR(F$,"?"):IF MO<>0 THEN GOSUB *FILE_LIST:CLS 4:GOTO 2050
  109. 2080  CLS 4:GOSUB 2430:IF LEN(F$)=0 THEN 2190
  110. 2090  GOSUB *FMESSAGE_02:ERASE OTO%:GOSUB *SECLEAR_02
  111. 2100  DIM OTO2%(320000):GOSUB 2220:LOAD@ F$,OTO2%
  112. 2110    OTO2%(7)=OTO2%(7)-(OTO2%(7)=0)*ABS(OTO2%(6)<=0)
  113. 2120    BY&=OTO2%(6)+(OTO2%(7)*65536)+32:ERASE OTO2%
  114. 2130  ERASE OTO%:DIM OTO%(BY&/2)
  115. 2140    MOUSE 6,0,PAND4%,PDOT4%:LOAD@ F$,OTO%
  116. 2150    FREQ%=((OTO%(12)/98)*1000):SEC!=(BY&-32)/FREQ%:SFREQ%=OTO%(12)
  117. 2160  GOSUB *FMESSAGE_03
  118. 2170  WAIT 100:MOUSE 6,0,PAND1%,PDOT1%:GOSUB *SND_NAME:GOSUB *SE_STAT
  119. 2180  GOSUB *SEWAVE
  120. 2190  GOSUB *MES_CLS:IF CDST(1)=0 THEN CD CONT
  121. 2200  PCMST(2)=0 : CO=0:I=14:GOSUB *F_BOTTAN : RETURN *MAIN_04
  122. 2210 '--------------------------------------------------------------------
  123. 2220  MO=INSTR(F$,".SND"):IF MO=0 THEN F$=F$+".SND"
  124. 2230  RETURN
  125. 2240 '--------------------------------------------------------------------
  126. 2250 *FMESSAGE_01
  127. 2260  COLOR 5:LOCATE 28,0:PRINT"ＰＣＭ音声ファイル"+A$
  128. 2270  COLOR 7:LOCATE 54,1:PRINT"SGS FILE SELECTER V1.01"
  129. 2280  COLOR 6
  130. 2290  LOCATE 2,3:PRINT A$+"するＰＣＭ音声ファイル名を入力して下さい"
  131. 2300  COLOR 7:LOCATE  2,5:PRINT"'?' を入力すると指定したドライブの"
  132. 2310  LOCATE 2,6:PRINT"ＰＣＭ音声ファイルリストを表示します ";
  133. 2320  PRINT"(例:'A:\?','B:\CD?')" : RETURN
  134. 2330 *FMESSAGE_02
  135. 2340  MES$="ＰＣＭ音声ファイル"+A$+"中":CO=2:GOSUB *MES : RETURN
  136. 2350 *FMESSAGE_03
  137. 2360  GOSUB *MES_CLS:MES$="ＰＣＭ音声ファイル"+A$+"終了"
  138. 2370  CO=2:GOSUB *MES : RETURN
  139. 2380 '--------------------------------------------------------------------
  140. 2390 *SND_NAME:LINE(392,56)-STEP(231,15),PSET,0,BF
  141. 2400           SYMBOL(392,56),F$,1,1,5,,,0:RETURN
  142. 2410 '--------------------------------------------------------------------
  143. 2420  OUT &H440,17,2:OUT &H442,220,2:OUT &H440,27,2:OUT &H442,18,2:RETURN
  144. 2430  OUT &H440,17,2:OUT &H442,  0,2:OUT &H440,27,2:OUT &H442, 0,2:RETURN
  145. 2440 '--------------------------------------------------------------------
  146. 2450 *FILE_LIST
  147. 2460  F=2:COLOR 7:FILES LEFT$(F$,INSTR(F$,"?"))+"*"
  148. 2470 'F=2:COLOR 7:FILES LEFT$(F$,INSTR(F$,"\*.SND"))+"*"
  149. 2480  LOCATE ,CSRLIN-2
  150. 2490  F=1:F$=LEFT$(F$,MO-1)+"*.SND":FILES F$
  151. 2500  COLOR 2:PRINT"何かキーを押して下さい　　　　":F=0
  152. 2510  Q$=INKEY$:IF Q$="" THEN 2520 ELSE RETURN
  153. 2520  IF MOUSE(2,0)=-1 THEN RETURN ELSE 2510
  154. 2530 '－　ＰＣＭ再生　－－－－－－－－－－－－－－－－－－－－－－－－－－
  155. 2540 *SEPLAY
  156. 2550  IF OTO%(0)=0 THEN 2560 ELSE 2570 :'ＰＣＭ音声あるか？
  157. 2560    CO=0:GOSUB *F_BOTTAN : RETURN *MAIN_04
  158. 2570 *SEPLAY_01:GOSUB *MOUSE_ROCK:PCMPLAY OTO%,PCMST(5):GOSUB *SE_STAT
  159. 2580  PCMST(2)=1:PCMST(0)=1:BP=PCMST(0):RETURN *MAIN_04
  160. 2590 '－　ＰＣＭ音声録音　－－－－－－－－－－－－－－－－－－－－－－－－
  161. 2600 *SEREC
  162. 2610  GOSUB *MOUSE_ROCK:Q=4:GOSUB *YN_JUD:IF YE=0 THEN 2660 :'録音する？
  163. 2620  CD PAUSE:PLAY OFF: CO=0:I=9:GOSUB *F_BOTTAN
  164. 2630  IF (SEC2!*(HZ%*1000)+32)>FREE& THEN GOTO 2660
  165. 2640  SEC!=SEC2!:FREQ%=HZ%*1000:ERASE OTO%
  166. 2650  GOSUB *SEREC_02:GOSUB *SEREC_03:IF CDST(1)=0 THEN CD CONT
  167. 2660  CD CONT:CO=0:I=12-(LIV=14):GOSUB *F_BOTTAN : RETURN *MAIN_04
  168. 2670 '--------------------------------------------------------------------
  169. 2680 *CDSEREC
  170. 2690  BTR=TRA:MIN!=(EP(0)*60+EP(1)+EP(2)/60)-(SP(1)*60+SP(2)+SP(3)/60)
  171. 2700  IF (MIN!*(HZ%*1000)+32)>FREE& THEN GOTO 2830
  172. 2710  IF MIN!<=0 OR SP(0)=0 THEN GOTO 2830
  173. 2720  GOSUB *MOUSE_ROCK:Q=4:GOSUB *YN_JUD:IF YE=0 THEN 2830 :'録音する？
  174. 2730  CDST(1)=0:CDST(9)=0:CD PAUSE:PLAY OFF:TRA=SP(0):GOSUB *CDST_LED
  175. 2740  CO=0:FOR I=1 TO 2:GOSUB *F_BOTTAN:NEXT I
  176. 2750  MES$="演奏テスト":CO=2:GOSUB *MES
  177. 2760  GOSUB *CDSEREC_02
  178. 2770  Q=5:GOSUB *YN_JUD :'もう一度聞く？
  179. 2780    IF YE=1 THEN GOTO 2750 ELSE IF YE=0 THEN CD PAUSE
  180. 2790  GOSUB *MES_CLS
  181. 2800  Q=6:GOSUB *YN_JUD:IF YE=0 THEN GOTO 2830 :'録音を開始する？
  182. 2810  SEC!=MIN!:FREQ%=HZ%*1000:ERASE OTO%:GOSUB *SEREC_02
  183. 2820  GOSUB *CDSEREC_02:GOSUB *SEREC_03
  184. 2830  TRA=BTR : CO=0:I=13:GOSUB *F_BOTTAN : RETURN *MAIN_04
  185. 2840 '--------------------------------------------------------------------
  186. 2850 *CDSEREC_02
  187. 2860  CD PLAY (SP(1),SP(2),SP(3),TRA)-(EP(0),EP(1),EP(2),TRA)
  188. 2870  GOSUB *CD_PLAY2 : RETURN
  189. 2880 '--------------------------------------------------------------------
  190. 2890 *SEREC_02
  191. 2900  DIM OTO%(SEC!*FREQ%/2+16):BY&=SEC!*FREQ%+32
  192. 2910  CO=0:COUNT=499
  193. 2920  WHILE MOUSE(2,0)=0 AND KY$<>CHR$(13)
  194. 2930    COUNT=COUNT+1:IF COUNT<1000 THEN 2960
  195. 2940    COUNT=0:IF CO=6 THEN CO=0 ELSE CO=6
  196. 2950    MES$="左クリックでサンプリング開始！":GOSUB *MES
  197. 2960  KY$=INKEY$:WEND
  198. 2970  GOSUB *MES_CLS:MOUSE 6,0,PAND2%,PDOT2%
  199. 2980  MES$="サンプリング中":CO=2:GOSUB *MES: RETURN
  200. 2990 *SEREC_03
  201. 3000    PCMREC OTO%,FREQ%
  202. 3010  LINE(32,420)-(279,455),PSET,0,BF
  203. 3020  GOSUB *MES_CLS:MES$="サンプリング終了":CO=2:GOSUB *MES
  204. 3030  WAIT 100:GOSUB *MES_CLS:SFREQ%=OTO%(12):MOUSE 6,0,PAND1%,PDOT1%
  205. 3040  F$=" ":GOSUB 2390:GOSUB *SE_STAT:GOSUB *SEWAVE: RETURN
  206. 3050 '－　サンプリング周波数調整　－－－－－－－－－－－－－－－－－－－－
  207. 3060 *FREQ_JUD
  208. 3070  YE=0:IF OTO%(0)=0 THEN 3150
  209. 3080  WHILE MOUSE(2,0)=-1
  210. 3090    IF LIV=11 THEN 3100 ELSE 3110
  211. 3100    OTO%(12)=(OTO%(12)*1000/98-50*(FREQ%<=32000))*98/1000:GOTO 3120
  212. 3110    OTO%(12)=(OTO%(12)*1000/98+50*(FREQ%>=1000))*98/1000
  213. 3120    GOSUB *SE_STAT
  214. 3130    MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  215. 3140  WEND
  216. 3150  CO=0:I=LIV-1:GOSUB *F_BOTTAN
  217. 3160  IF PCMST(0)=1 THEN GOTO *SEPLAY_01 ELSE RETURN *MAIN_04
  218. 3170 '－　ＰＣＭ再生停止　－－－－－－－－－－－－－－－－－－－－－－－－
  219. 3180 *SESTOP
  220. 3190  IF PLAY(2)=-1 THEN PLAY OFF : CO=0:I=9:GOSUB *F_BOTTAN
  221. 3200  GOSUB *MOUSE_ROCK : CO=0:I=16:GOSUB *F_BOTTAN
  222. 3210  PCMST(0)=0:PCMST(2)=0:BP=PCMST(0):RETURN *MAIN_04
  223. 3220 '－　ＰＣＭ音声データクリア　－－－－－－－－－－－－－－－－－－－－
  224. 3230 *SECLEAR
  225. 3240  IF OTO%(0)=0 THEN 3270 ELSE 3250 :'ＰＣＭ音声あるか？
  226. 3250  GOSUB *MOUSE_ROCK:Q=8:GOSUB *YN_JUD:IF YE=0 THEN 3270 :'クリア？
  227. 3260  PLAY OFF:ERASE OTO%:GOSUB *SECLEAR_02:F$=" ":GOSUB *SND_NAME
  228. 3270  CO=0:I=11:GOSUB *F_BOTTAN:RETURN *MAIN_04
  229. 3280 *SECLEAR_02:SEC!=0:FREQ%=0:BY&=0:GOSUB *SESTAT_02
  230. 3290             GOSUB *SEWAVE_02:DIM OTO%(1000):RETURN
  231. 3300 '－　サンプリング周波数初期化　－－－－－－－－－－－－－－－－－－－
  232. 3310 *FREQRESET
  233. 3320  IF OTO%(0)=0 THEN RETURN
  234. 3330  CO=0:GOSUB 3360:OTO%(12)=SFREQ%:GOSUB *SE_STAT:GOSUB *SESTAT_02
  235. 3340  GOSUB *MOUSE_ROCK:CO=7:GOSUB 3360:RETURN
  236. 3350 *FREQRESET_02
  237. 3360  A=ABS(CO=0)*7:LINE(388,232)-(435,243),PSET,CO,B
  238. 3370  CONNECT(388,243)-(435,243)-(435,232),A
  239. 3380  SYMBOL(392,234),"RESET",.875!,.55!,%5-(CO=0)*5,,,1,1:RETURN
  240. 3390 '－　波形データ　－－－－－－－－－－－－－－－－－－－－－－－－－－
  241. 3400 *SEWAVE
  242. 3410  GOSUB *SEWAVE_02
  243. 3420  ADDR&=VARPTR(OTO%(0)):XX=390:POINT(390,376)
  244. 3430  FOR L&=32 TO BY& STEP (BY&-32)\228
  245. 3440    DAT=PEEK(ADDR&+L&)
  246. 3450    LINE -(XX,376+(DAT<128)*DAT\2-(DAT>127)*(DAT-128)\2),PSET,6
  247. 3460    XX=XX+1:NEXT L&:RETURN
  248. 3470 *SEWAVE_02:LINE(388,312)-(619,439),PSET,0,BF
  249. 3480            LINE(388,376)-(619,376),PSET,4:RETURN
  250. 3490 '－　音量ＭＯＤＥ切換え　－－－－－－－－－－－－－－－－－－－－－－
  251. 3500 *VLMODE
  252. 3510  YE=VL_MODE:BVL=VL(YE)
  253. 3520  FOR I=0 TO 3
  254. 3530     IF MX>=69+I*40 AND MX<=108+I*40 THEN VL_MODE=I:I=3
  255. 3540  NEXT I
  256. 3550  CO=7:I=YE:GOSUB *VLMODE_SU : CO=0:I=VL_MODE:GOSUB *VLMODE_SU
  257. 3560  VL=VL(VL_MODE):IF BVL=VL THEN 3580
  258. 3570  FOR I=BVL TO VL STEP 4+(BVL>VL)*8:GOSUB *VL_METER:NEXT I
  259. 3580  GOSUB *MOUSE_ROCK : RETURN
  260. 3590 *VLMODE_SU
  261. 3600  A=ABS(CO=0)*7:LINE(69+I*40,304)-STEP(39,11),PSET,CO,B
  262. 3610  CONNECT(69+I*40,315)-STEP(39,0)-STEP(0,-11),A
  263. 3620  SYMBOL(VLX(I),306),VL$(I),.875!,.55!,%5-(CO=0)*5,,,1,1 : RETURN
  264. 3630 '－　音量調整　－－－－－－－－－－－－－－－－－－－－－－－－－－－
  265. 3640 *VOLUME
  266. 3650  YE=0:VL=VL(VL_MODE):BVL=VL
  267. 3660  IF MX>=56 AND MX<=183 THEN GOSUB *VOLUME_02 ELSE GOSUB *VOLUME_03
  268. 3670  VL(VL_MODE)=VL:IF VL_MODE=3 THEN PCMST(5)=VL
  269. 3680  RETURN
  270. 3690 '--  メータで音量を調整  --------------------------------------------
  271. 3700 *VOLUME_02
  272. 3710  YE=-1:VL=((MX-52)\4)*4-1:IF BVL=VL THEN RETURN
  273. 3720  FOR I=BVL TO VL STEP 4+(BVL>VL)*8:GOSUB *VL_METER:NEXT I
  274. 3730  IF VL_MODE<>3 THEN GOSUB *OUT_VL01
  275. 3740  RETURN
  276. 3750 '--　ボタンで音量を調整　--------------------------------------------
  277. 3760 *VOLUME_03
  278. 3770  WHILE MOUSE(2,0)=-1 AND YE>-1
  279. 3780   YE=-1:FOR L=0 TO 1:MX=MOUSE(0):MY=MOUSE(1)
  280. 3790     IF MX>=190+L*20 AND MY>=322 AND MX<=209+L*20 AND MY<=341 THEN YE=L:L=1
  281. 3800   NEXT L
  282. 3810   IF YE=-1 THEN 3860
  283. 3820   PUT@A(190+YE*20,322)-(209+YE*20,341),UPDOWN%,PSET,1,1,,120*(YE*2+1)
  284. 3830   VL=VL+((YE=0)*(VL<127))*4-((YE=1)*(VL>3))*4
  285. 3840   I=VL:GOSUB *VL_METER:MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  286. 3850   IF VL_MODE<>3 THEN GOSUB *OUT_VL01
  287. 3860  WEND
  288. 3870  FOR I=0 TO 1
  289. 3880    PUT@A(190+I*20,322)-(209+I*20,341),UPDOWN%,PSET,,,,120*(I*2)
  290. 3890  NEXT I:RETURN
  291. 3900 '--------------------------------------------------------------------
  292. 3910 *VL_METER
  293. 3920  IF VL>=BVL THEN CO=12+(I>92)*2 ELSE CO=8
  294. 3930  XX=54+I-(BVL>VL AND I<>127)*4:GOSUB *VL_METER02
  295. 3940  FOR J=0 TO 2
  296. 3950    DD=VL\(10^(2-J)) MOD 10:XX=16+J*10:GOSUB *LEDLOOK_01:NEXT J
  297. 3960  RETURN
  298. 3970 *VL_METER02
  299. 3980  LINE(XX,326)-(XX+1,337),PSET,%CO,BF:YY=324
  300. 3990  RETURN
  301. 4000 '--------------------------------------------------------------------
  302. 4010 *OUT_VL01
  303. 4020  IF VL_MODE=1 THEN CH=2:GOSUB *OUT_VL02:RETURN
  304. 4030  FOR I=ABS(VL_MODE=2)*4 TO 1-(VL_MODE=2)*4
  305. 4040    CH=I:GOSUB *OUT_VL02:NEXT I
  306. 4050  RETURN
  307. 4060 '--------------------------------------------------------------------
  308. 4070 *OUT_VL02
  309. 4080  IF CH>=4 THEN PORT=&H4E0:CH=CH-4:ELSE PORT=&H4E2
  310. 4090  CMM=CH OR 4
  311. 4100  IF VL<64 THEN CMM=CMM OR &H10:DAT=VL:ELSE DAT=VL-64
  312. 4110  OUT PORT+1,CMM,1:OUT PORT,DAT,1:RETURN
  313. 4120 '
  314. 4130 '====================================================================
  315. 4140 'ＣＤ　コントロール
  316. 4150 '====================================================================
  317. 4160 '
  318. 4170 *CD_CON:YE=0
  319. 4180  ON LIV GOSUB *CDSTOP,*CDPLAY_01,*CDPAUSE,*CDREPEAT,*CDFNEXT,*CDNEXT,*CDNEXT,*CDFNEXT
  320. 4190  RETURN *MAIN_04
  321. 4200 '－　ＣＤ演奏停止　－－－－－－－－－－－－－－－－－－－－－－－－－
  322. 4210 *CDSTOP
  323. 4220    MOUSE 6,0,PAND3%,PDOT3%
  324. 4230    CD STOP : CDST(1)=0:CDST(9)=0:CDST(2)=0 : TRA=0
  325. 4240    CO=0 :FOR I=0 TO 3:GOSUB *F_BOTTAN:NEXT I
  326. 4250    MOUSE 6,0,PAND1%,PDOT1%:GOSUB *CD_STAT
  327. 4260    GOSUB *CDST_LED:RETURN
  328. 4270 '－　ＣＤ演奏一時停止　－－－－－－－－－－－－－－－－－－－－－－－
  329. 4280 *CDPAUSE
  330. 4290    IF CDST(9)=0 THEN 4330
  331. 4300    IF CDST(1)=0 THEN CDST(1)=1 ELSE CDST(1)=0
  332. 4310    IF CDST(1)=1 THEN CD PAUSE ELSE CD CONT
  333. 4320    GOSUB *CDST_LED
  334. 4330    GOSUB *MOUSE_ROCK
  335. 4340    CO=CDST(1):I=2:GOSUB *F_BOTTAN : RETURN
  336. 4350 '－　ＣＤ曲間演奏（リピート）　－－－－－－－－－－－－－－－－－－－
  337. 4360 *CDREPEAT
  338. 4370    IF CDST(2)=0 THEN CDST(2)=1 ELSE IF CDST(2)=1 THEN CDST(2)=0
  339. 4380    GOSUB *CDST_LED : GOSUB *MOUSE_ROCK
  340. 4390    CO=CDST(2):I=3:GOSUB *F_BOTTAN : RETURN
  341. 4400 '－　ＣＤトラック　スキップ　－－－－－－－－－－－－－－－－－－－－
  342. 4410 *CDNEXT
  343. 4420  CD PAUSE:SE=0:MI=0:FR=0:GOSUB *CDTIME_CHECK:GOSUB *FR_LED
  344. 4430  WHILE MOUSE(2,0)=-1 AND YE>-1
  345. 4440   YE=-1:FOR L=5 TO 6
  346. 4450     IF MX>BX(L) AND MX<BX(L)+59 AND MY>BY(L) AND MY<BY(L)+39 THEN YE=L+1:L=6
  347. 4460   NEXT L
  348. 4470   IF YE<>LIV THEN YE=-1:GOTO 4520
  349. 4480   IF CDST(6)=1 THEN PCOUNT=PCOUNT-(YE=7)*(1+(PCO=PCOUNT)*PCO)+(YE=6)*(1+(PCOUNT<=1)*PCO):TRA=PRO(PCOUNT):GOTO 4510
  350. 4490   IF YE=6 THEN TRA=TRA-1-(TRA<=1)*CDST(10)
  351. 4500   IF YE=7 THEN TRA=TRA+1+(CDST(10)=TRA)*CDST(10)
  352. 4510   CO=1 : I=LIV-1 : GOSUB *F_BOTTAN:GOSUB *TRACK_CHECK
  353. 4520   MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  354. 4530  WAIT 15:WEND
  355. 4540  CO=0:FOR I=5 TO 6:GOSUB *F_BOTTAN:NEXT I:GOSUB *CDPLAY_02:RETURN
  356. 4550 '－　ＣＤ曲間巻戻し・早送り　－－－－－－－－－－－－－－－－－－－－
  357. 4560 *CDFNEXT
  358. 4570  IF CDST(9)=0 THEN 4760
  359. 4580  IF CDST(1)=0 THEN CDSTAT STAT:TIM&=(STAT(6)*60+STAT(7))*75
  360. 4590  IF CDST(1)=1 THEN CDST(1)=0:CO=0:I=2:GOSUB *F_BOTTAN:GOSUB *CDST_LED
  361. 4600  FR=0:GOSUB *FR_LED
  362. 4610  WHILE MOUSE(2,0)=-1
  363. 4620    TIM&=TIM&+(LIV=5)*75-(LIV=8)*75
  364. 4630    IF CDST(6)=1 AND (TIM&<0 OR TIM&>CDS&(TRA)) THEN 4640 ELSE 4670
  365. 4640      PCOUNT=PCOUNT-(LIV=8)*(1+(PCO=PCOUNT)*PCO)+(LIV=5)*(1+(PCOUNT<=1)*PCO):TRA=PRO(PCOUNT)
  366. 4650      IF TIM&<0 THEN TIM&=CDS&(TRA) ELSE TIM&=0
  367. 4660      GOTO 4710
  368. 4670    IF TIM&<0 AND TRA>1 THEN TRA=TRA-1:TIM&=CDS&(TRA)
  369. 4680    IF TIM&<0 AND TRA=1 AND LIV=5 THEN TRA=1:TIM&=0
  370. 4690    IF TIM&>CDS&(TRA) AND TRA<INF(5) THEN TRA=TRA+1:TIM&=0
  371. 4700    IF TIM&>CDS&(TRA) AND TRA=CDST(10) THEN TRA=1:TIM&=0
  372. 4710    SE=TIM&\75\60:MI=(TIM&\75) MOD 60:GOSUB *CDTIME_CHECK
  373. 4720    MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  374. 4730  WAIT 4:WEND
  375. 4740  ABSM=TIM&\4500:ABSS=(TIM&\75) MOD 60
  376. 4750  CD PLAY (ABSM,ABSS,0,TRA):GOSUB *CD_PLAY2
  377. 4760  CO=0:I=LIV-1:GOSUB *F_BOTTAN : RETURN
  378. 4770 '－　ＣＤ演奏　－－－－－－－－－－－－－－－－－－－－－－－－－－－
  379. 4780 *CDPLAY_01
  380. 4790  CDST(0)=1:IF CDST(9)=1 THEN RETURN
  381. 4800 *CDPLAY_02
  382. 4810  IF CDST(1)=1 THEN 4820 ELSE 4850
  383. 4820    IF LIV=6 OR LIV=7 THEN 4830 ELSE 4840
  384. 4830      GOSUB *CD_PLAY:CD PAUSE:CDST(9)=1:GOSUB 7670:RETURN
  385. 4840    GOSUB *CD_CONT
  386. 4850  IF CDST(0)=1 THEN GOSUB *CD_PLAY:CDST(9)=1:ELSE RETURN
  387. 4860  GOSUB *CDST_LED
  388. 4870  RETURN
  389. 4880 '－　プログラム設定　－－－－－－－－－－－－－－－－－－－－－－－－
  390. 4890 *PROSET
  391. 4900  IF PCO>=20 THEN 4950
  392. 4910  YE=-1:FOR L=0 TO 1
  393. 4920    IF MX>=16+L*40 AND MX<=55+L*20 THEN YE=L+1:L=1:NEXT L:ELSE NEXT L
  394. 4930  IF YE=-1 THEN 4950
  395. 4940  ON YE GOSUB *PROSET_01,*PROSET_02
  396. 4950  RETURN *MAIN_04
  397. 4960 '--------------------------------------------------------------------
  398. 4970 *PROSET_01:IF PTR=0 THEN RETURN
  399. 4980  IF CDST(6)=1 THEN CDST(6)=0:CO=7:GOSUB 5690:GOSUB *CDST_LED
  400. 4990  PCO=PCO+1:PRO(PCO)=PTR:CO=0:GOSUB 5040
  401. 5000  OTIM&=OTIM&+CDS&(PRO(PCO)):GOSUB *ORDER_TIME
  402. 5010  A$=MID$(STR$(PRO(PCO)),2+(PRO(PCO)<10),2)
  403. 5020  SYMBOL(118+((PCO-1 MOD 10)MOD 10)*16,380-(PCO>10)*16),A$,.75!,.55!,7
  404. 5030  GOSUB *MOUSE_ROCK:CO=7:GOSUB 5040:RETURN
  405. 5040 *PROSET_01S:A=ABS(CO=0)*7:LINE(16,360)-(55,371),PSET,CO,B
  406. 5050             CONNECT(16,371)-(55,371)-(55,360),A
  407. 5060             SYMBOL(23,362),"SET",.875!,.55!,%5-(CO=0)*5,,,1,1:RETURN
  408. 5070 '--------------------------------------------------------------------
  409. 5080 *PROSET_02
  410. 5090  YE=0:EN_SW=0
  411. 5100  WHILE MOUSE(2,0)=-1 AND EN_SW=0
  412. 5110   FOR J=0 TO 1:BOX=56+J*10
  413. 5120     IF MX>=BOX AND MX<=BOX+9 THEN 5130 ELSE 5140
  414. 5130     K=J:BO=1: YE=J+1:J=1 :GOSUB 5220
  415. 5140   NEXT J
  416. 5150   IF YE=0 THEN EN_SW=1:GOTO 5180
  417. 5160   PTR=PTR-(YE=1)*(1+(INF(5)=PTR)*INF(5))+(YE=2)*(1+(PTR<=1)*INF(5))
  418. 5170   GOSUB *PROSET_02S:MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  419. 5180  WAIT 15:WEND
  420. 5190  BO=0:GOSUB 5220:RETURN
  421. 5200 *PROSET_02S:YY=356:FOR I=0 TO 1:DD=PTR\(10^(1-I)) MOD 10
  422. 5210                      XX=88+I*10:GOSUB *LEDLOOK_01:NEXT I : RETURN
  423. 5220  PUT@A(BOX,360)-(BOX+9,369),UPDOWN2%,PSET,1,1,,40*((K*2)+BO):RETURN
  424. 5230 '－　プログラムリセット　－－－－－－－－－－－－－－－－－－－－－－
  425. 5240 *PRORESET
  426. 5250  IF PCO=0 THEN 5300
  427. 5260  IF CDST(6)=1 THEN CDST(6)=0:CO=7:GOSUB 5690:GOSUB *CDST_LED
  428. 5270  FOR L=0 TO 1
  429. 5280   IF MX>=200+L*28 AND MX<=227+L*28 THEN YE=L:L=1:NEXT L:ELSE NEXT L
  430. 5290  ON YE+1 GOSUB *PRORESET_01,*PRORESET_02
  431. 5300  RETURN *MAIN_04
  432. 5310 '--------------------------------------------------------------------
  433. 5320 *PRORESET_01:IF PRO(1)=0 THEN RETURN
  434. 5330  OTIM&=OTIM&-CDS&(PRO(PCO))
  435. 5340  PRO(PCO)=0:PCO=PCO-1:GOSUB *ORDER_TIME:A$="DEL":CO=0:GOSUB 5490
  436. 5350  LINE(117+((PCO MOD 10)MOD 10)*16,377-(PCO>9)*16)-STEP(13,13),PSET,0,BF
  437. 5360  GOSUB *MOUSE_ROCK:CO=7:GOSUB 5490:RETURN
  438. 5370 '--------------------------------------------------------------------
  439. 5380 *PRORESET_02
  440. 5390  A$="RESET":CO=0:GOSUB *PRORESET_SU:GOSUB *PRORESET_03
  441. 5400  GOSUB *MOUSE_ROCK:CO=7:GOSUB 5490:RETURN
  442. 5410 '--------------------------------------------------------------------
  443. 5420 *PRORESET_03
  444. 5430  PCO=0:OTIM&=0:GOSUB *ORDER_TIME : PTR=0:GOSUB *PROSET_02S
  445. 5440  FOR Y=0 TO 1:FOR X=0 TO 9:PRO(Y*10+X+1)=0
  446. 5450    LINE(117+X*16,377+Y*16)-STEP(13,13),PSET,0,BF:NEXT X,Y
  447. 5460  RETURN
  448. 5470 '--------------------------------------------------------------------
  449. 5480 *PRORESET_SU
  450. 5490  A=ABS(CO=0)*7:LINE(200+YE*28,352)-(227+YE*48,363),PSET,CO,B
  451. 5500  CONNECT(200+YE*28,363)-STEP(27+YE*20,0)-STEP(0,-11),A
  452. 5510  SYMBOL(203+YE*30,354),A$,.875!,.55!,%5-(CO=0)*5,,,1,1:RETURN
  453. 5520 '－　プログラム演奏　－－－－－－－－－－－－－－－－－－－－－－－－
  454. 5530 *PROPLAY
  455. 5540  IF PCO=0 THEN RETURN *MAIN_04
  456. 5550  YE=-1:FOR L=0 TO 1
  457. 5560  IF MX>=16+L*100 AND MX<=111+L*163 THEN YE=L+1:L=1:NEXT L:ELSE NEXT L
  458. 5570  IF YE=-1 THEN RETURN *MAIN_04
  459. 5580  ON YE GOSUB *PROPLAY_01,*PROPLAY_02
  460. 5590  IF CDST(6)=1 AND CDST(1)=1 THEN GOSUB *CD_CONT
  461. 5600  GOSUB *CDST_LED:RETURN *MAIN_04
  462. 5610 '--------------------------------------------------------------------
  463. 5620 *PROPLAY_01:IF PRO(1)=0 THEN RETURN
  464. 5630  CO=CDST(6)*7:GOSUB *PROPLAY_01S
  465. 5640  IF CDST(6)=0 THEN CDST(6)=1 ELSE CDST(6)=0
  466. 5650  IF CDST(6)=0 THEN 5680
  467. 5660    PCOUNT=1:TRA=PRO(PCOUNT):CDST(1)=0:CO=0:I=2:GOSUB *F_BOTTAN
  468. 5670    IF CDST(0)=1 THEN GOSUB *CD_PLAY:CDST(9)=1
  469. 5680  GOSUB *CDST_LED:RETURN
  470. 5690 *PROPLAY_01S
  471. 5700  A=ABS(CO=0)*7:LINE(16,376)-(111,407),PSET,CO,B
  472. 5710  CONNECT(16,407)-(111,407)-(111,376),A
  473. 5720  SYMBOL(36,388),"PROGRAM",.875!,.55!,%5-(CO=0)*5,,,1,1:RETURN
  474. 5730 '--------------------------------------------------------------------
  475. 5740 *PROPLAY_02
  476. 5750  IF PRO(1)=0 OR CDST(6)=0 THEN RETURN
  477. 5760  YE=-1:FOR Y=0 TO 1:FOR X=0 TO 9
  478. 5770    IF MX>116+X*16 AND MX<131+X*16 AND MY>376+Y*16 AND MY<391+Y*16 THEN YE=Y*10+X+1:YY=Y:XX=X:Y=1:X=9
  479. 5780  NEXT X,Y
  480. 5790  IF YE=-1 THEN RETURN ELSE IF PRO(YE)=0 THEN RETURN
  481. 5800  CO=2:GOSUB 5830:PCOUNT=YE:TRA=PRO(PCOUNT)
  482. 5810  IF CDST(0)=0 THEN CDST(0)=1:CO=1:I=1:GOSUB *F_BOTTAN
  483. 5820  GOSUB *CD_PLAY:CO=0:GOSUB *PROPLAY_02S:GOSUB *MOUSE_ROCK:RETURN
  484. 5830 *PROPLAY_02S:LINE(117+XX*16,377+YY*16)-STEP(13,13),PSET,CO,B:RETURN
  485. 5840 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  486. 5850 *ORDER_TIME
  487. 5860  OMI=OTIM&\4500:OSE=(OTIM&\75) MOD 60
  488. 5870  YY=359:FOR I=0 TO 1:DD=PCO\(10^(1-I)) MOD 10:XX=118+I*10
  489. 5880    IF I=0 AND DD=0 THEN DD=10
  490. 5890  GOSUB *LEDLOOK_01:NEXT I
  491. 5900  FOR I=0 TO 1:DD=OMI\(10^(1-I)) MOD 10:XX=146+I*10
  492. 5910    IF I=0 AND DD=0 THEN DD=10
  493. 5920  GOSUB *LEDLOOK_01:NEXT I
  494. 5930  FOR I=0 TO 1:DD=OSE\(10^(1-I)) MOD 10:XX=170+I*10
  495. 5940  GOSUB *LEDLOOK_01:NEXT I
  496. 5950  RETURN
  497. 5960 '－　ミュージックカレンダー　－－－－－－－－－－－－－－－－－－－－
  498. 5970 *CALLENDER_01
  499. 5980  FOR Y=0 TO 4:FOR X=0 TO 4
  500. 5990    LINE(289+X*16,361+Y*16)-STEP(13,13),PSET,0,BF:NEXT X,Y
  501. 6000  FOR Y=0 TO 4:FOR X=0 TO 4:IF Y*5+X+1>INF(5) THEN X=4:Y=4:GOTO 6030
  502. 6010    A$=MID$(STR$(Y*5+X+1),1-(Y*5+X+1>9),2)
  503. 6020    SYMBOL(291+X*16,364+Y*16),A$,.75!,.55!,7
  504. 6030  NEXT X,Y
  505. 6040 CONNECT(348,444)-(367,450)-(348,456)-(348,444),%7,,F,%0-(INF(5)>25)*5
  506. 6050  RETURN 
  507. 6060 '--------------------------------------------------------------------
  508. 6070 *CALLENDER_02
  509. 6080  YE=-1:FOR Y=0 TO 4:FOR X=0 TO 4
  510. 6090  IF MX>288+X*16 AND MX<305+X*16 AND MY>360+Y*16 AND MY<375+Y*16 THEN YE=Y*5+X+1:YY=Y:XX=X:Y=4:X=4
  511. 6100 NEXT X,Y
  512. 6110  IF YE=-1 THEN RETURN ELSE IF YE>INF(5) THEN RETURN
  513. 6120  IF CDST(6)=1 THEN CDST(6)=0:CO=7:GOSUB *PROPLAY_01S
  514. 6130  IF CDST(1)=1 THEN GOSUB *CD_CONT
  515. 6140  CO=2:GOSUB *CALLEN_02S:TRA=YE:CDST(9)=1:LIV=30
  516. 6150  IF CDST(0)=0 THEN CDST(0)=1:CO=1:I=1:GOSUB *F_BOTTAN
  517. 6160  GOSUB *CD_PLAY:GOSUB *CDST_LED
  518. 6170  CO=0:GOSUB *CALLEN_02S:GOSUB *MOUSE_ROCK:RETURN
  519. 6180 *CALLEN_02S:LINE(289+XX*16,361+YY*16)-STEP(13,13),PSET,CO,B:RETURN
  520. 6190 '－　ＳＥＴ－ＵＰ　－－－－－－－－－－－－－－－－－－－－－－－－－
  521. 6200 '--　ＣＤシンクロ　--------------------------------------------------
  522. 6210 *CD_SYNC
  523. 6220  YE=0:K=-1:EN_SW=0
  524. 6230  WHILE MOUSE(2,0)=-1 AND EN_SW=0
  525. 6240    FOR I=0 TO 3:FOR J=0 TO 1:BOX=(18+I*24-(I>0)*8)+J*10
  526. 6250     IF MX>=BOX AND MX<=BOX+4 THEN 6260 ELSE 6280
  527. 6260        K=J:BO=1: YE=I+1:YE2=J: I=3:J=1: NEXT J,I
  528. 6270        GOSUB *UDBOT_01:GOTO 6340
  529. 6280    NEXT J,I
  530. 6290    FOR I=0 TO 2:FOR J=0 TO 1:BOX=(132+I*24)+J*10
  531. 6300     IF MX>=BOX AND MX<=BOX+4 THEN 6310 ELSE 6320
  532. 6310        K=J:BO=1: YE=I+5:YE2=J: I=2:J=1: GOSUB *UDBOT_01
  533. 6320    NEXT J,I
  534. 6330    IF YE=0 THEN EN_SW=1:GOTO 6360
  535. 6340    GOSUB *CDSYNC_02:GOSUB *CDSYNC_03
  536. 6350    MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  537. 6360  WAIT 15+(YE=4 OR YE=7)*14:WEND
  538. 6370  IF K>-1 THEN BO=0:GOSUB *UDBOT_01
  539. 6380  RETURN
  540. 6390 '--------------------------------------------------------------------
  541. 6400 *CDSYNC_02
  542. 6410  ON YE GOTO 6420,6430,6440,6450,6460,6470,6480
  543. 6420    SP(0)=SP(0)-(YE2=0)*(1+(CDST(10)=SP(0))*CDST(10))+(YE2=1)*(1+(SP(0)<=1)*CDST(10))  :RETURN: 'トラック
  544. 6430    SP(1)=SP(1)-(YE2=0)*(1+(INF(2)=SP(1))*(INF(2)+1))+(YE2=1)*(1+(SP(1)<=0)*(INF(2)+1)):RETURN: '開始分
  545. 6440    SP(2)=SP(2)-(YE2=0)*(1+(SP(2)=59)*60)+(YE2=1)*(1+(SP(2)<=0)*60)                    :RETURN: '開始秒
  546. 6450    SP(3)=SP(3)-(YE2=0)*(1+(SP(3)=74)*75)+(YE2=1)*(1+(SP(3)<=0)*75)                    :RETURN: '開始フレーム
  547. 6460    EP(0)=EP(0)-(YE2=0)*(1+(INF(2)=EP(0))*(INF(2)+1))+(YE2=1)*(1+(EP(0)<=0)*(INF(2)+1)):RETURN: '終了分
  548. 6470    EP(1)=EP(1)-(YE2=0)*(1+(EP(1)=59)*60)+(YE2=1)*(1+(EP(1)<=0)*60)                    :RETURN: '終了秒
  549. 6480    EP(2)=EP(2)-(YE2=0)*(1+(EP(2)=74)*75)+(YE2=1)*(1+(EP(2)<=0)*75)                    :RETURN: '終了フレーム
  550. 6490 '--------------------------------------------------------------------
  551. 6500 *CDSYNC_03
  552. 6510  YY=263:FOR I=0 TO 3:FOR J=0 TO 1:DD=SP(I)\(10^(1-J)) MOD 10
  553. 6520    XX=(18+I*24-(I>0)*8)+J*10:GOSUB *LEDLOOK_01:NEXT J,I
  554. 6530  FOR I=0 TO 2:FOR J=0 TO 1:DD=EP(I)\(10^(1-J)) MOD 10
  555. 6540    XX=(132+I*24)+J*10       :GOSUB *LEDLOOK_01:NEXT J,I : RETURN
  556. 6550 '--　ＳＥ録音周波数　------------------------------------------------
  557. 6560 *SE_FREQ
  558. 6570  YE=0:EN_SW=0
  559. 6580  WHILE MOUSE(2,0)=-1 AND EN_SW=0
  560. 6590   FOR J=0 TO 1:BOX=244+J*10
  561. 6600     IF MX>=BOX AND MX<=BOX+9 THEN 6610 ELSE 6620
  562. 6610     K=J:BO=1: YE=J+1:J=1 :GOSUB *UDBOT_01
  563. 6620   NEXT J
  564. 6630   IF YE=0 THEN EN_SW=1:GOTO 6660
  565. 6640   HZ%=HZ%-(YE=1)*(1+(HZ%=19)*19)+(YE=2)*(1+(HZ%<=1)*19)
  566. 6650   GOSUB *SEFREQ_02:MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  567. 6660  WAIT 15:WEND
  568. 6670  BO=0:GOSUB *UDBOT_01:RETURN
  569. 6680 *SEFREQ_02:YY=263:FOR I=0 TO 1:DD=HZ%\(10^(1-I)) MOD 10
  570. 6690                     XX=244+I*10:GOSUB *LEDLOOK_01:NEXT I : RETURN
  571. 6700 '--　ＬＩＮＥ・ＳＥ録音時間　----------------------------------------
  572. 6710 *MANUAL_TIME
  573. 6720  YE=0:EN_SW=0
  574. 6730  WHILE MOUSE(2,0)=-1 AND EN_SW=0
  575. 6740    FOR I=0 TO 1:FOR J=0 TO 1:BOX=(300+I*24)+J*10
  576. 6750      IF MX>=BOX AND MX<=BOX+4 THEN 6760 ELSE 6770
  577. 6760      K=J:BO=1: YE=I+1:YE2=J: I=1:J=1 :GOSUB *UDBOT_01
  578. 6770    NEXT J,I
  579. 6780    IF YE=0 THEN EN_SW=1:GOTO 6850
  580. 6790    ON YE GOTO 6800,6820
  581. 6800     LS(0)=LS(0)-(YE2=0)*(1+(LS(0)=99)*100)+(YE2=1)*(1+(LS(0)<=0)*100)
  582. 6810     GOTO 6830
  583. 6820    LS(1)=LS(1)-(YE2=0)*(1+(LS(1)=74)*75)+(YE2=1)*(1+(LS(1)<=0)*75)
  584. 6830    GOSUB *MTIME_02:SEC2!=LS(0)+(LS(1)/75)
  585. 6840    MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  586. 6850  WAIT 2:WEND
  587. 6860  BO=0:GOSUB *UDBOT_01:RETURN
  588. 6870 *MTIME_02:YY=263:FOR I=0 TO 1:FOR J=0 TO 1:DD=LS(I)\(10^(1-J)) MOD 10
  589. 6880           XX=(300+I*24)+J*10:GOSUB *LEDLOOK_01:NEXT J,I : RETURN
  590. 6890 '--------------------------------------------------------------------
  591. 6900 *UDBOT_01
  592. 6910  PUT@A(BOX,284)-(BOX+9,293),UPDOWN2%,PSET,1,1,,40*((K*2)+BO)
  593. 6920  RETURN
  594. 6930 '－　ＳＥＴ－ＵＰリセット　－－－－－－－－－－－－－－－－－－－－－
  595. 6940 *RECRESET_01
  596. 6950  CO=0:GOSUB *RECRESET_03:GOSUB *RECRESET_02
  597. 6960  GOSUB *MOUSE_ROCK:CO=7:GOSUB *RECRESET_03:RETURN
  598. 6970 '--------------------------------------------------------------------
  599. 6980 *RECRESET_02
  600. 6990  EP(0)=0:EP(1)=0:EP(2)=0
  601. 7000  SP(0)=0:SP(1)=0:SP(2)=0:SP(3)=0:SEC2!=2:HZ%=8
  602. 7010  GOSUB *CDSYNC_03:GOSUB *SEFREQ_02
  603. 7020  LS(0)=FIX(SEC2!):LS(1)=(SEC2!-LS(0))*75:GOSUB *MTIME_02
  604. 7030  RETURN
  605. 7040 '--------------------------------------------------------------------
  606. 7050 *RECRESET_03:A=ABS(CO=0)*7:LINE(320,228)-(367,239),PSET,CO,B
  607. 7060  CONNECT(320,239)-(367,239)-(367,228),A
  608. 7070  SYMBOL(324,230),"RESET",.875!,.55!,%5-(CO=0)*5,,,1,1:RETURN
  609. 7080 '－　システム　－－－－－－－－－－－－－－－－－－－－－－－－－－－
  610. 7090 *SYS_01
  611. 7100  GET@A(8,48)-(191,127),MENU%:GOSUB *MOUSE_ROCK
  612. 7110  FOR I=0 TO 1:LINE(8+I,48+I)-STEP(183-I,79-I),PSET,7,BF,%7:NEXT I
  613. 7120  FOR I=0 TO 1:CONNECT(8+I,127-I)-(191-I,127-I)-(191-I,48+I),0:NEXT I
  614. 7130  FOR I=0 TO 1:LINE(12,52+I*24)-STEP(175,19+I*28),PSET,7,BF,%8:NEXT I
  615. 7140  FOR I=0 TO 1:LINE(28,79+I*22)-STEP(156,19),PSET,7,BF,0:NEXT I
  616. 7150  SYMBOL(52, 54),"ＳＹＳＴＥＭ",1,1,7,,PSET,1
  617. 7160  SYMBOL(32, 81),"about REIMIA",1,1,7,,PSET,1,1
  618. 7170  SYMBOL(32,103),"FREE MEMORY" ,1,1,7,,PSET,1,1
  619. 7180  FOR I=0 TO 1:SYMBOL(16,81+I*22),CHR$(49+I),1,1,6,,PSET,5:NEXT I
  620. 7190  IF MOUSE(2,0)=0 THEN 7280   :'ﾏｳｽ
  621. 7200  WHILE MOUSE(2,0)=-1
  622. 7210    MX=MOUSE(0):MY=MOUSE(1):YE=0:FOR I=0 TO 1
  623. 7220     IF MX>=28 AND MY>=79+I*22 AND MX<=184 AND MY<=98+I*22 THEN YE=I+1
  624. 7230    NEXT I
  625. 7240  IF YE=0 THEN CO=7:FOR YE=1 TO 2:GOSUB *SYS_S1:NEXT YE:YE=0
  626. 7250  IF YE>0 THEN CO=2:GOSUB *SYS_S1
  627. 7260  WEND
  628. 7270  IF YE>0 THEN 7330
  629. 7280  IF MOUSE(2,1)=-1 THEN PUT@A(8,48)-(191,127),MENU%,PSET,1,1:GOTO 7440
  630. 7290  KY$=INKEY$:YE=VAL(KY$)
  631. 7300  IF YE=1 OR YE=2 THEN CO=2:GOSUB *SYS_S1:WAIT 5:GOTO 7330
  632. 7310  GOTO 7190
  633. 7320 '--------------------------------------------------------------------
  634. 7330  PUT@A(8,48)-(191,127),MENU%,PSET,1,1:GOSUB *WINPUT
  635. 7340  ON YE GOSUB *ABOUT_01,*FREEMEMORY:YE=0:GOSUB *SYS_S2
  636. 7350  WHILE MOUSE(2,0)=-1         :'ﾏｳｽ
  637. 7360    MX=MOUSE(0):MY=MOUSE(1)
  638. 7370    IF MX>=406 AND MY>=260 AND MX<=441 AND MY<=279 THEN YE=1 ELSE YE=0
  639. 7380    GOSUB *SYS_S2
  640. 7390  GOSUB *TIME_CHECK:WEND
  641. 7400  IF YE=1 THEN WAIT 5:GOTO 7430
  642. 7410  KY$=INKEY$:IF KY$=CHR$(13) THEN YE=1:GOSUB *SYS_S2:WAIT 5:GOTO 7430
  643. 7420  GOSUB *TIME_CHECK:GOTO 7350
  644. 7430  GOSUB *WINCLS
  645. 7440  CO=0:I=19:GOSUB *F_BOTTAN : RETURN
  646. 7450 '--　アバウト『麗美亜』　--------------------------------------------
  647. 7460 *ABOUT_01:XX=168:YY=192:GOSUB *ABOUT_02:RETURN
  648. 7470 *ABOUT_02:PUT@A(XX,YY)-(XX+303,YY+95),ABOUT%:RETURN
  649. 7480 '--　残りメモリ領域　------------------------------------------------
  650. 7490 *FREEMEMORY
  651. 7500  PUT@A(168,192)-(471,287),FRWIN%
  652. 7510  YY=228:ZERO=0:FOR I=0 TO 7:DD=FRE(4)\(10^(7-I)) MOD 10
  653. 7520    IF DD<>ZERO THEN ZERO=-1:ELSE DD=10
  654. 7530    XX=319+I*10:GOSUB *LEDLOOK_01:NEXT I
  655. 7540  RETURN
  656. 7550 '--------------------------------------------------------------------
  657. 7560 *SYS_S1:LINE(28,79+(YE-1)*22)-STEP(156,19),PSET,CO,B : RETURN
  658. 7570 *SYS_S2:PUT@A(406,260)-(441,279),YN%,MATTE,,,%7,216*YE
  659. 7580         SYMBOL(408,262),"ＯＫ",1,1,7-YE*5,,,1 : RETURN
  660. 7590 '
  661. 7600 '====================================================================
  662. 7610 'サブルーチン
  663. 7620 '====================================================================
  664. 7630 '
  665. 7640 '－　ＣＤ状態　－－－－－－－－－－－－－－－－－－－－－－－－－－－
  666. 7650 *CD_STAT
  667. 7660  IF CDST(1)=1 THEN 7700
  668. 7670  CDSTAT STAT:SE=STAT(6):MI=STAT(7):FR=STAT(8)
  669. 7680  TIM&=(STAT(6)*60+STAT(7))*75+STAT(8)
  670. 7690  GOSUB *CDTIME_CHECK:GOSUB *FR_LED
  671. 7700  CDST(0)=STAT(1):IF A=6 THEN RETURN
  672. 7710  IF (TRA<>STAT(5) AND CDST(1)=0) AND CDST(2)=1 AND CDST(9)=1 THEN GOSUB *CD_PLAY :'リピート演奏
  673. 7720  IF TRA<>STAT(5) AND CDST(1)=0 AND CDST(2)=0 AND CDST(9)=1 THEN 7740 ELSE RETURN
  674. 7730  RETURN
  675. 7740  IF CDST(6)=0 THEN 7770
  676. 7750    PCOUNT=PCOUNT+1+(PCOUNT>=PCO)*PCO:TRA=PRO(PCOUNT)
  677. 7760    GOSUB *CD_PLAY:RETURN
  678. 7770  LIV=30:TRA=TRA+1:IF TRA>INF(5) THEN TRA=1:GOSUB *CD_PLAY
  679. 7780  GOSUB *CDST_LED:RETURN
  680. 7790 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  681. 7800 *TRACK_CHECK
  682. 7810  YY=90:IF TRA<>BTRA THEN GOSUB *TR_LED:RETURN:ELSE RETURN
  683. 7820 *CDTIME_CHECK
  684. 7830  YY=90:GOSUB *TRACK_CHECK
  685. 7840        IF  SE<>BSE  THEN GOSUB *SE_LED
  686. 7850        IF  MI<>BMI  THEN GOSUB *MI_LED
  687. 7860  RETURN
  688. 7870 '--　ＣＤトラック表示　----------------------------------------------
  689. 7880 *TR_LED
  690. 7890  FOR I=0 TO 1:DD=TRA\(10^(1-I)) MOD 10:XX=20+I*18 :'トラック
  691. 7900    IF I=0 AND DD=0 THEN DD=10
  692. 7910  GOSUB *LEDLOOK_02:NEXT I:BTRA=TRA:RETURN
  693. 7920 '--　ＣＤ演奏時間表示　----------------------------------------------
  694. 7930 *SE_LED
  695. 7940  FOR I=0 TO 1:DD=SE\(10^(1-I)) MOD 10      :'分
  696. 7950    XX= 80+20*I:GOSUB *LEDLOOK_02:NEXT I:BSE=SE:RETURN
  697. 7960 *MI_LED
  698. 7970  FOR I=0 TO 1:DD=MI\(10^(1-I)) MOD 10      :'秒
  699. 7980    XX=128+20*I:GOSUB *LEDLOOK_02:NEXT I:BMI=MI:RETURN
  700. 7990 *FR_LED:YY=94
  701. 8000  FOR I=0 TO 1:DD=FR\(10^(1-I)) MOD 10 :'ﾌﾚｰﾑ
  702. 8010    XX=172+I*10:GOSUB *LEDLOOK_01:NEXT I:RETURN
  703. 8020 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  704. 8030 *CD_PLAY :CD PLAY TRA,INF(5)
  705. 8040 *CD_PLAY2:VL=VL(0):FOR CH=0 TO 1:GOSUB *OUT_VL02:NEXT CH:RETURN
  706. 8050 *CD_CONT :CDST(1)=0:CDST(0)=1 : CO=0:I=2:GOSUB *F_BOTTAN:RETURN
  707. 8060 *CDST_LED:SYMBOL( 68, 58),"PAUSE"  ,1,.875!,%8+2*CDST(1),,,1,1
  708. 8070  SYMBOL( 20, 58),"PLAY"   ,1,.875!,%8+6*CDST(0),,,1,1
  709. 8080  SYMBOL(230, 78),"REPEAT" ,1,.875!,%8+4*CDST(2),,,1,1
  710. 8090  SYMBOL(220,100),"PROGRAM",1,.875!,%8+6*CDST(6),,,1,1:RETURN
  711. 8100 '－　ＣＤ情報　－－－－－－－－－－－－－－－－－－－－－－－－－－－
  712. 8110 *CD_INF
  713. 8120  MOUSE 6,0,PAND3%,PDOT3%
  714. 8130  CDINF INF:ERASE CDS&:DIM CDS&(INF(5)),CDW&(INF(5))
  715. 8140  FOR I=1 TO INF(5):IF I<INF(5) THEN A$=CDSTIME$(I+1)
  716. 8150  IF I=INF(5) THEN CDW&(I)=(INF(2)*60+INF(3))*75+INF(4):GOTO 8170
  717. 8160  CDW&(I)=(VAL(LEFT$(A$,2))*60+VAL(MID$(A$,4,2)))*75+VAL(RIGHT$(A$,2))
  718. 8170  CDS&(I)=CDW&(I)-CDW&(I-1)
  719. 8180  NEXT I
  720. 8190  ERASE CDW&:YY=80
  721. 8200  FOR I=0 TO 1:DD=INF(5)\10^(1-I) MOD 10
  722. 8210    XX=416+I*10:IF I=0 AND DD=0 THEN DD=10
  723. 8220  GOSUB *LEDLOOK_01:NEXT I
  724. 8230  FOR I=0 TO 1:FOR J=0 TO 1:DD=INF(2+I)\10^(1-J) MOD 10
  725. 8240    XX=544+I*24+J*10:IF I=0 AND J=0 AND DD=0 THEN DD=10
  726. 8250  GOSUB *LEDLOOK_01:NEXT J,I
  727. 8260  IF CDST(8)=0 THEN GOSUB *MES_CLS:CDST(8)=1
  728. 8270  CDST(5)=INF(1):SYMBOL(194,58),"MUSIC+DATA",1,.875!,%8,,,1,1
  729. 8280  IF CDST(5)<>2 THEN 8300
  730. 8290    SYMBOL(72,438),"データ用ＣＤです",1,1,6:CD STOP:ERROR 53
  731. 8300  IF CDST(5)=1 THEN A$="MUSIC"
  732. 8310  IF CDST(5)=3 THEN A$="MUSIC+DATA"
  733. 8320  SYMBOL(194,58),A$,1,.875!,6,,,1,1:GOSUB *CALLENDER_01
  734. 8330  IF CDST(6)=1 THEN CDST(6)=0:CO=7:GOSUB *PROPLAY_01S
  735. 8340  IF PCO>0 THEN GOSUB *PRORESET_03
  736. 8350  GOSUB *RECRESET_02:MOUSE 6,0,PAND1%,PDOT1%
  737. 8360  BTRA=-1:BSE=-1:BMI=-1:TRA=0:SE=0:MI=0:GOSUB *CDTIME_CHECK
  738. 8370  CDST(10)=INF(5):COLOR 7:IF MO=1 THEN 1540 ELSE IF MO=2 THEN 4180
  739. 8380 '－　ＰＣＭ状態　－－－－－－－－－－－－－－－－－－－－－－－－－－
  740. 8390 *SE_STAT
  741. 8400  PCMST(0)=ABS(PLAY(2))
  742. 8410  FREQ%=((OTO%(12)/98)*1000):SEC!=(BY&-32)/FREQ%
  743. 8420 'IF PCMST(2)=1 AND PLAY(2)=0 THEN PCMPLAY OTO%,PCMST(5):GOTO 6840
  744. 8430  IF PCMST(0)=0 AND BP=1 THEN CO=0:I=9:GOSUB *F_BOTTAN:BP=PCMST(0)
  745. 8440  IF LIV<9 OR LIV=10 OR LIV>15 THEN RETURN
  746. 8450 *SESTAT_02
  747. 8460  IF LIV>8 AND LIV<12 THEN 8500
  748. 8470  YY=232:ZERO=0:FOR I=0 TO 6:DD=BY&\(10^(6-I)) MOD 10
  749. 8480    IF I=6 OR DD<>ZERO THEN ZERO=-1:ELSE DD=10
  750. 8490    XX=522+10*I:GOSUB *LEDLOOK_01:NEXT I
  751. 8500  YY=252:FOR I=0 TO 3:DD=FREQ%\(10^(4-I)) MOD 10
  752. 8510    IF I=0 AND DD=0 THEN DD=10
  753. 8520    XX=422+10*I-(I>1)*4:GOSUB *LEDLOOK_01:NEXT I
  754. 8530  ZERO=0:FOR I=0 TO 4:DD=(SEC!*100)\(10^(4-I)) MOD 10
  755. 8540    IF I=2 OR DD<>ZERO THEN ZERO=-1:ELSE DD=10
  756. 8550    XX=538+10*I-(I>2)*4:GOSUB *LEDLOOK_01:NEXT I
  757. 8560  RETURN
  758. 8570 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  759. 8580 *TIME_CHECK
  760. 8590  YY=28:IF TI$<> LEFT$(TIME$,5) THEN SES=0:GOSUB *TIME_LOOK
  761. 8600        IF SE$<>RIGHT$(TIME$,2) THEN SES=2:GOSUB *TIME_LOOK
  762. 8610        IF DA$<>DATE$ THEN GOSUB *DATE_LOOK
  763. 8620  IF CDST(8)=1 AND (LIV<5 OR LIV>8) THEN GOSUB *CD_STAT
  764. 8630  RETURN
  765. 8640 '--　時間表示　------------------------------------------------------
  766. 8650 *TIME_LOOK
  767. 8660  FOR I=SES TO 2:D=VAL(MID$(TIME$,1+I*3,2))
  768. 8670    FOR J=0 TO 1:DD=D\(10^(1-J)) MOD 10:XX=(302+24*I)+J*10
  769. 8680       GOSUB *LEDLOOK_01:NEXT J,I
  770. 8690    IF SES=0 THEN TI$=LEFT$(TIME$,5) ELSE SE$=RIGHT$(TIME$,2)
  771. 8700  RETURN
  772. 8710 '--　日付表示　------------------------------------------------------
  773. 8720 *DATE_LOOK
  774. 8730  FOR I=0 TO 2:D=VAL(MID$(DATE$,1+I*3,2))
  775. 8740    FOR J=0 TO 1:DD=D\(10^(1-J)) MOD 10:XX=(216+24*I)+J*10
  776. 8750      GOSUB *LEDLOOK_01:NEXT J,I:DA$=DATE$
  777. 8760  RETURN
  778. 8770 '－　Ｙ／Ｎ判断　－－－－－－－－－－－－－－－－－－－－－－－－－－
  779. 8780 *YN_JUD
  780. 8790  GOSUB *WINPUT:PUT@A(168,192)-(471,287),YNWIN%
  781. 8800  SYMBOL(320-(LEN(ER$(E))/4)*16,208),ER$(E),1,1,2,,PSET :'ｴﾗｰﾒｯｾｰｼﾞ
  782. 8810  SYMBOL(320-(LEN(QU$(Q))/4)*16,232),QU$(Q),1,1,7,,PSET :'ﾒｯｾｰｼﾞ
  783. 8820  IF MOUSE(2,0)=0 THEN 8940   :'ﾏｳｽ
  784. 8830  WHILE MOUSE(2,0)=-1
  785. 8840    MX=MOUSE(0):MY=MOUSE(1):YE=-1:FOR I=0 TO 1
  786. 8850      IF MX>=358+I*48 AND MY>=260 AND MX<=393+I*48 AND MY<=279 THEN YE=1-I
  787. 8860    NEXT I
  788. 8870    IF YE>-1 THEN GOSUB 9020:GOTO 8920
  789. 8880    FOR I=0 TO 1
  790. 8890      PUT@A(358+I*48,260)-(393+I*48,279),YN%,MATTE,,,%7:NEXT I
  791. 8900    SYMBOL(360,262),"ＯＫ　ＮＯ",1,1,7,,,1
  792. 8910    GOSUB *TIME_CHECK
  793. 8920  WEND
  794. 8930  IF YE>-1 THEN GOSUB 9020:WAIT 5:GOTO *WINCLS
  795. 8940  GOSUB *TIME_CHECK:GOTO 8820:KY$=INKEY$                  :'ｷｰﾎﾞｰﾄﾞ
  796. 8950    IF KY$="Y" OR KY$="y" OR KY$=CHR$(13) THEN YE=1:GOTO 8930
  797. 8960    IF KY$="N" OR KY$="n" THEN YE=0:GOTO 8930
  798. 8970  GOSUB *TIME_CHECK:GOTO 8820
  799. 8980 '--------------------------------------------------------------------
  800. 8990 *WINPUT:GET@A(168,192)-(471,287),YNWIN%,7296:RETURN
  801. 9000 *WINCLS:PUT@A(168,192)-(471,287),YNWIN%,PSET,1,1,,7296:E=0:RETURN
  802. 9010 '--------------------------------------------------------------------
  803. 9020  PUT@A(358+(1-YE)*48,260)-(393+(1-YE)*48,279),YN%,MATTE,,,%7,216
  804. 9030  IF YE=1 THEN YE$="ＯＫ" ELSE IF YE=0 THEN YE$="ＮＯ"
  805. 9040  SYMBOL(360+(1-YE)*48,262),YE$,1,1,2,,,1:RETURN
  806. 9050 '－　メッセージ枠　－－－－－－－－－－－－－－－－－－－－－－－－－
  807. 9060 *MES    :SYMBOL(144-LEN(MES$)*4,420),MES$,1,1,CO:RETURN
  808. 9070 *MES_CLS:LINE(16,420)-(278,454),PSET,0,BF:RETURN
  809. 9080 '－　機能ボタン　－－－－－－－－－－－－－－－－－－－－－－－－－－
  810. 9090 *F_BOTTAN
  811. 9100  PUT@A(BX(I),BY(I))-(BX(I)+57,BY(I)+37),BOTAN1%,MATTE,,,%7,(640)*CO
  812. 9110  SYMBOL(WX(I),WY(I)),NM$(I),1,.55!,%5+CO*5,,,1:RETURN
  813. 9120 '--------------------------------------------------------------------
  814. 9130 *MOUSE_ROCK
  815. 9140  WHILE MOUSE(2,0)=-1
  816. 9150    MOUSE 1,MX,MY,1:GOSUB *TIME_CHECK
  817. 9160  WEND:RETURN
  818. 9170 '－　ＬＥＤ表示　－－－－－－－－－－－－－－－－－－－－－－－－－－
  819. 9180 *LEDLOOK_01:PUT@A(XX,YY)-(XX+7 ,YY+15),LED% ,PSET,1,1,,32*DD:RETURN
  820. 9190 *LEDLOOK_02:PUT@A(XX,YY)-(XX+15,YY+23),LED2%,PSET,1,1,,96*DD:RETURN
  821. 9200 '－　パレット　－－－－－－－－－－－－－－－－－－－－－－－－－－－
  822. 9210 *PAL_01:FOR CO=0 TO 15:PALETTE CO,[0,0,0]:NEXT CO:RETURN
  823. 9220 *PAL_02:PALETTE : PALETTE 7,[48,48,96]:PALETTE 5,[175,7,248]
  824. 9230         PALETTE 9,[64,0,248]:RETURN
  825. 9240 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  826. 9250 *DUMMY:CO=0:I=LIV-1:GOSUB *F_BOTTAN:RETURN
  827. 9260 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  828. 9270 *終了
  829. 9280  Q=7:GOSUB *YN_JUD:MOUSE 6,0,PAND1%,PDOT1%  :'終了する？
  830. 9290  IF YE=0 THEN  CO=0:I=18:GOSUB *F_BOTTAN : RETURN
  831. 9300  ERASE OTO%:MOUSE 1,0,0,0:CLS 4
  832. 9310  FOR I=0 TO 320
  833. 9320    LINE(I,I*.75!)-(640-I,480-I*.75!),PSET,0,B:NEXT I
  834. 9330  A$="0005051206020712080108091011"
  835. 9340  FOR X=0 TO 13:A=VAL(MID$(A$,1+X*2,2))
  836. 9350    BEEP 363523,7,500
  837. 9360    PUT@A(208+X*16,232)-(223+X*16,247),ROGO01%,MATTE,,,%0,64*A
  838. 9370  WAIT 15:NEXT X
  839. 9380 'CDSTAT STAT:IF STAT(1)=0 THEN WAIT 250:END
  840. 9390  FOR VL=VL(0) TO 1 STEP -3
  841. 9400    FOR CH=0 TO 1:GOSUB *OUT_VL02:NEXT CH:WAIT 2:NEXT VL
  842. 9410  WAIT 200:END
  843. 9420 '
  844. 9430 '*
  845. 9440 '
  846. 9450 '===================================================================
  847. 9460 'グラフィックパターン作成
  848. 9470 '===================================================================
  849. 9480 '
  850. 9490 *PATTAN_MAKE
  851. 9500  DIM BOTAN1%(640,1),LED%(32,10),LED2%(96,10),DLED%(40)
  852. 9510  DIM ABOUT%(7296),WINDO%(7296),ERWIN%(7296),FRWIN%(7296)
  853. 9520  DIM YNWIN%(7296,1),YN%(216,1)
  854. 9530  DIM UPDOWN%(120,3),UPDOWN2%(40,3),MENU%(5000),ROGO%(500)
  855. 9540  DIM ROGO01%(63,12):LOAD@"MOJI_01.PAT",ROGO01%
  856. 9550  DIM CDCOM%(63,12):LOAD@"CDCOM.PAT",CDCOM%
  857. 9560  DIM TROGO%(120):LOAD@"TROGO.PAT",TROGO%
  858. 9570 '－　機能ボタン　－－－－－－－－－－－－－－－－－－－－－－－－－－
  859. 9580  FOR K=0 TO 1:A=ABS(K=0)*7:B=ABS(K=1)*7
  860. 9590    LINE(17,17)-(74,54),PSET,A,BF,%7
  861. 9600    CONNECT(17,54)-(74,54)-(74,17),B
  862. 9610  GET@A(17,17)-(74,54),BOTAN1%,640*K:NEXT K:CLS
  863. 9620 '－　『麗美亜』ロゴ　－－－－－－－－－－－－－－－－－－－－－－－－
  864. 9630  COLOR ,%2:SYMBOL(17,16),"麗"  ,1.5!,1.25!,2,,,7
  865. 9640  COLOR ,%1:SYMBOL(43,16),"美亜",1.5!,1.25!,5,,,7,2
  866. 9650  GET@A(16,16)-(102,37),ROGO%:COLOR ,0:CLS
  867. 9660 '－　ＬＥＤ　－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  868. 9670  LINE(16,16)-(47,27),PSET,2,B
  869. 9680  SYMBOL(18,18),"DISK",.875!,.55!,2,,,1
  870. 9690  GET@(16,16)-(47,27),DLED%,2:CLS
  871. 9700  RESTORE 9890:FOR I=0 TO 10:READ L$:L=1
  872. 9710    FOR Y=16 TO 31 STEP 7
  873. 9720      GOSUB 9870:LINE(17,Y)-STEP(4,0),PSET,%C:NEXT Y
  874. 9730    FOR X=16 TO 22 STEP 6
  875. 9740      GOSUB 9870:LINE(X,17)-STEP(0,5),PSET,%C
  876. 9750      GOSUB 9870:LINE(X,24)-STEP(0,5),PSET,%C:NEXT X
  877. 9760  GET@A(16,16)-(23,31),LED%,32*I:NEXT I:CLS
  878. 9770  RESTORE 9890:FOR I=0 TO 10:READ L$:L=1
  879. 9780    FOR Y=16 TO 38 STEP 11
  880. 9790      GOSUB 9870:LINE(18,Y)-STEP(11,1),PSET,%C,BF:NEXT Y
  881. 9800    FOR X=16 TO 30 STEP 14
  882. 9810      GOSUB 9870:LINE(X,18)-STEP(1,8),PSET,%C,BF
  883. 9820      GOSUB 9870:LINE(X,29)-STEP(1,8),PSET,%C,BF:NEXT X
  884. 9830    PSET(18,16),0:PSET(29,16),0:PSET(16,18),0:PSET(31,18),0
  885. 9840    PSET(16,26),0:PSET(31,26),0:PSET(16,29),0:PSET(31,29),0
  886. 9850    PSET(16,37),0:PSET(31,37),0:PSET(18,39),0:PSET(29,39),0
  887. 9860  GET@A(16,16)-(31,39),LED2%,96*I:NEXT I:CLS:GOTO 9920
  888. 9870  C=VAL("&h"+MID$(L$,L,1)):L=L+1:RETURN
  889. 9880 '－　ＬＥＤデータ　－－－－－－－－－－－－－－－－－－－－－－－－－
  890. 9890  DATA E8EEEEE,88888EE,EEE8EE8,EEE88EE,8E8E8EE,EEEE88E,EEEEE8E
  891. 9900  DATA E8888EE,EEEEEEE,EEEE8EE,8888888
  892. 9910 '－　Ｙ／Ｎ　ウィンドウ　－－－－－－－－－－－－－－－－－－－－－－
  893. 9920  FOR K=0 TO 1:A=ABS(K=0)*7:B=ABS(K=1)*7
  894. 9930    FOR I=0 TO 1:LINE(16+I,16+I)-STEP(35-I,19-I),PSET,A,BF,%7:NEXT I
  895. 9940    FOR I=0 TO 1:CONNECT(16+I,35-I)-(51-I,35-I)-(51-I,16+I),B:NEXT I
  896. 9950  GET@A(16,16)-(51,35),YN%,216*K:NEXT K:CLS
  897. 9960  FOR I=0 TO 1:LINE(16+I,16+I)-STEP(303-I,95-I),PSET,7,BF,%7:NEXT I
  898. 9970  FOR I=0 TO 1:CONNECT(16+I,111-I)-(319-I,111-I)-(319-I,16+I),0:NEXT I
  899. 9980  GET@A(16,16)-(319,111),WINDO%
  900. 9990  FOR I=0 TO 1:PUT@A(206+I*48,84)-(241+I*48,103),YN%:NEXT I
  901. 10000  SYMBOL(208,86),"ＯＫ　ＮＯ",1,1,7,,,1
  902. 10010  GET@A(16,16)-(319,111),YNWIN%:CLS
  903. 10020 '－　アバウト『麗美亜』　－－－－－－－－－－－－－－－－－－－－－－
  904. 10030  PUT@A(16,16)-(319,111),WINDO%:'GOSUB *BOT_02
  905. 10040  COLOR ,%8:SYMBOL(36,24),"CD & PCM  PLAYER",1,1,7,,PSET,7,1
  906. 10050  PUT@A(204,24)-(290,45),ROGO%,MATTE,,,%0
  907. 10060  COLOR ,%0:SYMBOL(80,52),"- REIMIA -  Ver 1.21",1,1,7,,PSET,5,1
  908. 10070 'PUT@A(172,196)-(203,227),ICON2%
  909. 10080  SYMBOL(32,80),"(C)1994",1,1,7,,PSET,5,1
  910. 10090  A$="0001001200020304"
  911. 10100  FOR I=0 TO 7:A=VAL(MID$(A$,1+I*2,2))
  912. 10110    PUT@A(108+I*16,79)-(123+I*16,94),ROGO01%,MATTE,,,%0,64*A:NEXT I
  913. 10120  GET@A(16,16)-(319,111),ABOUT%
  914. 10130 '－　エラー表示ウィンドウー　－－－－－－－－－－－－－－－－－－－－
  915. 10140  GOSUB *BOT_02
  916. 10150  SYMBOL(80,28),"エラーが発生しました！！",1,1,%10,,,5
  917. 10160  SYMBOL(64,48),"ＥＲＲＯＲ",1,1,%15,,,5
  918. 10170  SYMBOL(64,68),"発生行番号",1,1,%15,,,5
  919. 10180  GET@A(16,16)-(319,111),ERWIN%
  920. 10190 '－　フリーメモリ表示ウィンドウー　－－－－－－－－－－－－－－－－－
  921. 10200  GOSUB *BOT_02
  922. 10210  COLOR ,0:SYMBOL(42,52),"FREE MEMORY",1,.875!,7,,PSET,5,1
  923. 10220  LINE(165,50)-(246,68),PSET,0,BF
  924. 10230  YY=52:ZERO=0:DD=10
  925. 10240  FOR I=0 TO 7:XX=167+I*10:GOSUB *LEDLOOK_01:NEXT I
  926. 10250  SYMBOL(249,52),"Byte",1,.875!,7,,PSET,5,1
  927. 10260  GET@A(16,16)-(319,111),FRWIN%
  928. 10270 '－　上下ボタン　－－－－－－－－－－－－－－－－－－－－－－－－－－
  929. 10280 COLOR ,%8:FOR J=0 TO 1:FOR K=0 TO 1:A=ABS(K=0)*7:B=ABS(K=1)*7
  930. 10290   LINE(16,16)-STEP(19,19),PSET,A,BF,%7
  931. 10300   CONNECT(16,35)-(35,35)-(35,16),B
  932. 10310   PUT@A(18,18)-(33,33),CDCOM%,MATTE,1,1,%1,64*(9+J*2+K)
  933. 10320   LINE(48,16)-(57,25),PSET,A,BF,%7:CONNECT(48,25)-(57,25)-(57,16),B
  934. 10330   CONNECT(50,23-J*5)-STEP(5,0)-STEP(-2,-4+J*8)-(50,23-J*5),%5-(K=1)*5,,F
  935. 10340   GET@A(16,16)-(35,35),UPDOWN%,120*(J*2+K)
  936. 10350   GET@A(48,16)-(57,25),UPDOWN2%,40*(J*2+K):NEXT K,J:COLOR 7,0:CLS
  937. 10360 '－　マウスカーソル　－－－－－－－－－－－－－－－－－－－－－－－－
  938. 10370  DIM ICON%(1713),ICON2%(255)
  939. 10380  DIM PAND1%(64),PDOT1%(64),PAND2%(64),PDOT2%(64)
  940. 10390  DIM PAND3%(64),PDOT3%(64),PAND4%(64),PDOT4%(64)
  941. 10400  LOAD@"REIMIA.ICN",ICON%
  942. 10410  PUT@A(16, 16)-(47,207),ICON%,PSET,1,1,,176:MOUSE 0
  943. 10420  GET@ (16, 16)-(47, 47),PAND1%,1:GET@(16, 16)-(47, 47),PDOT1%,7
  944. 10430  GET@ (16, 48)-(47, 79),PAND2%,1:GET@(16, 48)-(47, 79),PDOT2%,7
  945. 10440  GET@ (16, 80)-(47,111),PAND3%,1:GET@(16, 80)-(47,111),PDOT3%,7
  946. 10450  GET@ (16,112)-(47,143),PAND4%,1:GET@(16,112)-(47,143),PDOT4%,7
  947. 10460  GET@A(16,176)-(47,207),ICON2%
  948. 10470  MOUSE 6,0,PAND1%,PDOT1%
  949. 10480  ERASE ICON% : RETURN
  950. 10490 '－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
  951. 10500 *BOT_02
  952. 10510  PUT@A(16,16)-(319,111),WINDO%
  953. 10520  PUT@A(254,84)-(289,103),YN%,MATTE,,,%7
  954. 10530  SYMBOL(256,86),"ＯＫ",1,1,7,,,1 : RETURN
  955. 10540 '
  956. 10550 '
  957. 10560 '===================================================================
  958. 10570 '画面構成
  959. 10580 '===================================================================
  960. 10590 '
  961. 10600 *VIEW_MAKE
  962. 10610  COLOR 7,%0:CLS:GOSUB *PAL_01
  963. 10620  LINE(1,1)-(638,462),PSET,%1,BF:LINE(2,2)-(637,49),PSET,%8,BF
  964. 10630  COLOR 5,%8:SYMBOL(8,8),"CD & PCM  PLAYER",1,1,7,,,7,1
  965. 10640  PUT@A(8,26)-(94,47),ROGO%,MATTE,,,%0
  966. 10650  COLOR ,%0:SYMBOL(164,8),"(C)1994　SGS SOFT",.85!,.55!,7,,,4,1
  967. 10660            SYMBOL( 96,26),"-REIMIA-",.85!,.55!,7,,,4,1
  968. 10670            SYMBOL(100,36),"Ver 1.21",.85!,.55!,7,,,4,1
  969. 10680  CONNECT(0,463)-(0,0)-(639,0),%7,PSET
  970. 10690  CONNECT(0,463)-(639,463)-(639,0),%8,PSET
  971. 10700  RESTORE 10730:FOR I=0 TO 15:READ X1,Y1,X2,Y2,CO
  972. 10710    LINE(X1,Y1)-(X2,Y2),PSET,0,BF
  973. 10720    LINE(X1+1,Y1+1)-(X2-1,Y2-1),PSET,%7,BF,%CO:NEXT I
  974. 10730  DATA   8, 52,291,117,0, 292, 52,631, 75,0, 292, 76,631,117,0
  975. 10740  DATA   8,415,281,459,0,  11,299,232,344,8,  11,224,373,296,8
  976. 10750  DATA 212, 25,371, 46,0,  54,323,185,340,0, 379,224,628,459,8
  977. 10760  DATA  13,258,371,281,0,  11,347,281,412,8, 115,375,276,408,0
  978. 10770  DATA 283,347,372,459,8, 287,359,368,441,0, 386,310,621,441,0
  979. 10780  DATA 239,299,372,344,8
  980. 10790  RESTORE 10810:FOR I=0 TO 11:READ X1,Y1,X2,Y2,CO,CO2
  981. 10800    LINE(X1,Y1)-(X2,Y2),PSET,%CO,BF,%CO2:NEXT I
  982. 10810  DATA 519,231,591,247,0,0, 420,251,465,267,0,0, 536,251,591,267,0,0
  983. 10820  DATA 115,350,191,375,0,0,  15,322, 44,339,0,0,  68,304,227,315,7,7
  984. 10830  DATA  86,354,107,371,0,0,  16,360, 55,371,7,7, 200,352,275,363,7,7
  985. 10840  DATA  16,376,111,407,7,7, 320,228,367,239,7,7, 388,232,435,243,7,7
  986. 10850  LINE(138,372)-(143,359),PSET,6
  987. 10860  RESTORE 10880:FOR I=0 TO 5:READ X1,Y1,X2,Y2
  988. 10870    CONNECT(X1,Y1)-(X1,Y2)-(X2,Y2),7,PSET:NEXT I
  989. 10880  DATA  24,245, 71,243, 193,245,136,243, 248,251,251,245
  990. 10890  DATA 304,251,307,245, 442,245,438,238, 275,373,244,370
  991. 10900  FOR I=0 TO 3:LINE(304+I*16,360)-STEP(0,79),PSET,%7
  992. 10910               LINE(288,376+I*16)-STEP(79,0),PSET,%7:NEXT I
  993. 10920  FOR I=0 TO 8:LINE(132+I*16,376)-STEP(0,31),PSET,%7:NEXT I
  994. 10930  LINE(116,392)-(275,392),PSET,%7
  995. 10940  COLOR ,0
  996. 10950  RESTORE 10970:FOR I=0 TO 3:READ XX,YY,NM$
  997. 10960    SYMBOL(XX,YY),NM$,.825!,.5!-(I=3)*.05!,7:NEXT I
  998. 10970  DATA   20,249,"TR   START", 134,249,"END", 118,351,"ORDER TIME"
  999. 10980  DATA   64,351,"TR:"
  1000. 10990  FOR I=0 TO 1:LINE(12+I*308,136)-(259+I*368,221),PSET,0,BF,%7:NEXT I
  1001. 11000  GOSUB *SEWAVE_02
  1002. 11010  FOR I=0 TO 1:LINE(494+I*70,8)-STEP(56,37),PSET,%7,BF:NEXT I
  1003. 11020  COLOR ,0:RESTORE 12320:FOR I=0 TO 14:READ WX,WY,NM$
  1004. 11030    SYMBOL(WX,WY),NM$,1,.5!,6-(I>4),,,1+4,0:NEXT
  1005. 11040  RESTORE 11070:FOR I=0 TO 4:READ XX,YY,NM$
  1006. 11050    COLOR ,%10+(I>1)
  1007. 11060    SYMBOL(XX,YY),NM$,1+(I=1)*.25!,.55!,6+(I>1),,,15+(I=1),3:NEXT I
  1008. 11070  DATA  16,124,"CD CONTROLL" ,  13,304,"VOLUME"
  1009. 11080  DATA 324,124,"PCM CONTROLL",  16,228,"SAMPLING SET-UP"
  1010. 11090  DATA 422,276,"PCM INFORMATION"
  1011. 11100  S=30:DIM WX(S),WY(S),NM$(S),BX(S),BY(S):CO=0 :'機能ボタン
  1012. 11110  RESTORE 12400:FOR I=0 TO 19:READ WX(I),WY(I),NM$(I),BX(I),BY(I)
  1013. 11120    GOSUB *F_BOTTAN :NEXT I
  1014. 11130  RESTORE 11150:FOR I=0 TO  3:READ VLX(I),VL$(I):CO=7+(I=3)*7
  1015. 11140    GOSUB *VLMODE_SU:NEXT I
  1016. 11150  DATA 80,"CD",116,"MIC",153,"LINE",196,"PCM"
  1017. 11160  RESTORE 12570:FOR I=0 TO 13:READ XX,YY,K
  1018. 11170    PUT@A(XX,YY)-(XX+15,YY+15),CDCOM%,MATTE,,,%1,64*K:NEXT I
  1019. 11180  RESTORE 11200:FOR I=0 TO 10:READ XX,YY,A$,YO!,TA!
  1020. 11190    SYMBOL(XX,YY),A$,YO!,TA!,6:NEXT I
  1021. 11200  DATA 232, 28,".  .",1,1, 318, 28,":  :",1,1, 118, 92,":",1.2!,1.5!
  1022. 11210  DATA 164, 94,":"   ,1,1,  38,263,"-",1,1, 66,263,":  :",1,1
  1023. 11220  DATA 118,265,"～",.75!,.75!, 148,263,":  :",1,1, 316,263,"." ,1,1 
  1024. 11230  DATA 561, 80,":"   ,1,1, 162,359,":" ,1,1
  1025. 11240  FOR I=0 TO 1:SYMBOL(439+I*126,252),".",1,1,6:NEXT I
  1026. 11250    PUT@(588,100)-(619,111),DLED%,PSET,2
  1027. 11260  FOR I=0 TO 1
  1028. 11270    PUT@A(190+I*20,322)-(209+I*20,341),UPDOWN%,PSET,,,,120*(I*2)
  1029. 11280  NEXT I
  1030. 11290  BO=0:FOR I=0 TO 3:FOR K=0 TO 1:BOX=(18+I*24-(I>0)*8)+K*10
  1031. 11300    GOSUB *UDBOT_01:NEXT K,I
  1032. 11310  FOR I=0 TO 2:FOR K=0 TO 1:BOX=(132+I*24)+K*10:GOSUB *UDBOT_01
  1033. 11320  NEXT K,I
  1034. 11330  FOR K=0 TO 1:BOX=244+K*10:GOSUB *UDBOT_01:NEXT K
  1035. 11340  FOR I=0 TO 1:FOR K=0 TO 1:BOX=(300+I*24)+K*10:GOSUB *UDBOT_01
  1036. 11350  NEXT K,I
  1037. 11360  FOR K=0 TO 1:BOX=56+K*10:GOSUB 5220:NEXT K
  1038. 11370  FOR I=0 TO 1:PUT@(261-I,313-I)-(356-I,332-I),TROGO%,PSET,%4*I:NEXT I
  1039. 11380 '
  1040. 11390 '===================================================================
  1041. 11400 'データＲＥＡＤ
  1042. 11410 '===================================================================
  1043. 11420 '
  1044. 11430  DIM QU$(20),ER$(20),BODA(20,3)
  1045. 11440  RESTORE 12620:FOR I=1 TO  8:READ QU$(I):NEXT I  :'メッセージ
  1046. 11450  RESTORE 12720:FOR I=1 TO  7:READ ER$(I):NEXT I  :'エラーメッセージ
  1047. 11460  RESTORE 12520:FOR I=0 TO 10:FOR J=0 TO 3:READ BODA(I,J):NEXT J,I
  1048. 11470 RETURN
  1049. 11480 '
  1050. 11490 '
  1051. 11500 '====================================================================
  1052. 11510 'エラールーチン
  1053. 11520 '====================================================================
  1054. 11530 '
  1055. 11540 *エラールーチン
  1056. 11550 MOUSE 6,0,PAND1%,PDOT1%
  1057. 11560 IF ERR=115 THEN 11580 ELSE 11570  :'データトラックを指定
  1058. 11570 IF ERR=5 AND (LIV=2 OR (LIV>=5 AND LIV<=8) OR LIV=30) THEN 11580              ELSE 11670
  1059. 11580   CD PAUSE:IF CDST(6)=1 THEN CDST(6)=0:CO=7:GOSUB 5690
  1060. 11590   IF LIV=2 THEN TRA=TRA+1+(CDST(10)=TRA)*CDST(10):RESUME 4850
  1061. 11600   IF LIV=6 THEN RESUME 4470
  1062. 11610   IF LIV=7 THEN RESUME 4500
  1063. 11620   IF LIV=30 THEN TRA=TRA+1:CD PLAY TRA,INF(5):RESUME 7780
  1064. 11630   IF LIV=5 OR LIV=8 THEN CO=0:I=LIV-1:GOSUB *F_BOTTAN
  1065. 11640   IF LIV=5 THEN LIV=2:TRA=TRA-1-(TRA=1):RESUME 4850
  1066. 11650   IF LIV=8 THEN LIV=2:TRA=TRA+1+(CDST(10)=TRA)*CDST(10):RESUME 4850
  1067. 11660 :
  1068. 11670 IF LIV=14 THEN 11680 ELSE 11710
  1069. 11680   GOSUB *MES_CLS:CO=2:MES$="データトラックです":GOSUB *MES:WAIT 100
  1070. 11690   GOSUB *MES_CLS:RESUME 2830
  1071. 11700 :
  1072. 11710 IF ERR=53 THEN 11720 ELSE 11840
  1073. 11720   IF CDST(1)=1 OR CDST(9)=1 THEN CO=0:FOR I=1 TO 3:GOSUB *F_BOTTAN:NEXT I
  1074. 11730   IF LIV>1 THEN LIV=30:CD STOP:RESUME 7780
  1075. 11740   CDST(1)=0:CDST(9)=0:GOSUB *CDST_LED
  1076. 11750   CO=2:MES$="ＣＤをセットして下さい":GOSUB *MES
  1077. 11760   PUT@(588,100)-(619,111),DLED%,PSET,%7
  1078. 11770   CDST(8)=0:IF MOUSE(2,0)=0 THEN 11800
  1079. 11780     MX=MOUSE(0):MY=MOUSE(1):E=0
  1080. 11790     IF MX>578 AND MX<637 AND MY>18 AND MY<57 THEN I=18:CO=1:GOSUB *F_BOTTAN:GOSUB *終了
  1081. 11800   E=1:WAIT 50:PUT@(588,100)-(619,111),DLED%,PSET,2:WAIT 50
  1082. 11810   GOSUB *TIME_CHECK
  1083. 11820   TRA=1:RESUME 1530
  1084. 11830 :
  1085. 11840 IF ERR=72 THEN 11850 ELSE 11870  :'ディスクがセットされていない
  1086. 11850   E=2:IF LIV=15 THEN 11940 ELSE IF LIV=16 THEN 11880
  1087. 11860 :
  1088. 11870 IF ERR=55 THEN 11880 ELSE 11910  :'ファイル名の記述が正しくない
  1089. 11880   E=3:IF LIV=16 THEN RESUME 1860
  1090. 11890   IF LIV=15 THEN GOTO 11940
  1091. 11900 :
  1092. 11910 IF ERR=63 THEN 11920 ELSE 11960  :'指定ファイルが未発見
  1093. 11920   IF F=1 THEN COLOR 2:PRINT"ＰＣＭ音声ファイルは存在しません":RESUME 2500
  1094. 11930   IF F=2 THEN LOCATE ,CSRLIN+2:RESUME 2490
  1095. 11940   E=4:CLOSE:ERASE OTO2%:F$=" ":RESUME 2010
  1096. 11950 :
  1097. 11960 IF ERR=60 THEN 11970 ELSE 12000  :'ディスクが使用不可
  1098. 11970   COLOR 2:PRINT"指定したディスクが見つかりません"
  1099. 11980   RESUME 2500
  1100. 11990 :
  1101. 12000 IF ERR=64 THEN 12010 ELSE 12030  :'指定ファイル名が既に存在
  1102. 12010   E=5:RESUME 1980
  1103. 12020 :
  1104. 12030 IF ERR=67 THEN 12040 ELSE 12060  :'ディスク容量が不足
  1105. 12040   E=6:RESUME 1860
  1106. 12050 :
  1107. 12060 IF ERR=73 THEN 12070 ELSE 12090  :'ディスクが書き込み禁止
  1108. 12070   E=7:RESUME 1860
  1109. 12080 :
  1110. 12090 IF ERR=5 AND LIV=2 THEN 12100 ELSE 12120
  1111. 12100   OT1=OT1+100:ERASE OTO%:DIM OTO%((OT1+OT2*65536+32)/2):RESUME 2130
  1112. 12110 :
  1113. 12120  COLOR ,%0:CLS
  1114. 12130  PUT@A(168,192)-(471,287),ERWIN%
  1115. 12140  SYMBOL(304,224),AKCNV$(STR$(ERR)),1,1,%15,,,5
  1116. 12150  SYMBOL(304,244),AKCNV$(STR$(ERL)),1,1,%15,,,5
  1117. 12160  BEEP 363523,100,80
  1118. 12170  YE=0:GOSUB *SYS_S2
  1119. 12180  WHILE MOUSE(2,0)=-1         :'ﾏｳｽ
  1120. 12190    MX=MOUSE(0):MY=MOUSE(1)
  1121. 12200    IF MX>=406 AND MY>=260 AND MX<=441 AND MY<=279 THEN YE=1 ELSE YE=0
  1122. 12210    GOSUB 7570
  1123. 12220  WEND
  1124. 12230  IF YE=1 THEN WAIT 5:END
  1125. 12240  KY$=INKEY$:IF KY$=CHR$(13) THEN YE=1:GOSUB *SYS_S2:WAIT 5:END
  1126. 12250  GOTO 12180
  1127. 12260 :
  1128. 12270 '====================================================================
  1129. 12280 'データ
  1130. 12290 '====================================================================
  1131. 12300 '
  1132. 12310 *DATA
  1133. 12320  DATA 16,80,"TRACK   TRACK-TIME",88,63,"",304,60,"SND FILE :"
  1134. 12330  DATA 304,84,"TOTAL TRACK :    TOTAL TIME :"
  1135. 12340  DATA 264,268,"KHz       SEC"
  1136. 12350  DATA 76,240,"CD SYNC",254,242,"FREQ",310,242,"MANUAL"
  1137. 12360  DATA 594,236,"Byte",468,256,"KHz",594,256,"SEC"
  1138. 12370  DATA 452,236,"SND SIZE",384,256,"FREQ",502,256,"TIME"
  1139. 12380  DATA 200,366,"ORDER"
  1140. 12390 '
  1141. 12400  DATA  30,166,"STOP"  , 18,140,   90,166,"PLAY"   , 78,140
  1142. 12410  DATA 146,166,"PAUSE" ,138,140,  202,166,"REPEAT" ,198,140
  1143. 12420  DATA  26,206,"FBACK" , 18,180,   90,206,"BACK"   , 78,180
  1144. 12430  DATA 150,206,"NEXT"  ,138,180,  206,206,"FNEXT"  ,198,180
  1145. 12440  DATA 398,166,"SLOW"  ,386,140,  458,166,"PLAY"   ,446,140
  1146. 12450  DATA 518,166,"FAST"  ,506,140,  576,150,"CLEAR"  ,566,140
  1147. 12460  DATA 392,206,"RECORD",386,180,  456,206,"CDREC"  ,446,180
  1148. 12470  DATA 518,190,"LOAD"  ,506,180,  578,190,"SAVE"   ,566,180
  1149. 12480  DATA 338,166,"STOP"  ,326,140,  338,190,"    "   ,326,180
  1150. 12490  DATA 576, 18,"EXIT"  ,564,  8,  498, 18,"SYSTEM" ,494,  8
  1151. 12500 'DATA ,,""   ,,
  1152. 12510 '
  1153. 12520  DATA 388,232,435,243,   56,322,229,341,   69,304,228,315
  1154. 12530  DATA  18,284,200,295,  244,280,263,291,  300,280,343,291
  1155. 12540  DATA  16,360, 79,369,  200,352,275,363,   16,376,275,407
  1156. 12550  DATA 288,360,367,439,  320,228,367,239
  1157. 12560 '
  1158. 12570  DATA  40,144,0,  100,144,1,  160,144,2,   40,184,4,  100,184,6
  1159. 12580  DATA 160,184,5,  220,184,3,  348,144,0,  408,144,4,  468,144,1
  1160. 12590  DATA 528,144,3,  408,184,7,  468,184,7,  220,144,8   
  1161. 12600 '
  1162. 12610 '
  1163. 12620  DATA "ＰＣＭ音声データをセーブしますか？"
  1164. 12630  DATA "ファイルを上書きしますか？"
  1165. 12640  DATA "ＰＣＭ音声ファイルをロードしますか？"
  1166. 12650  DATA "サンプリングを行いますか？"
  1167. 12660  DATA "もう一度演奏テストを行いますか？"
  1168. 12670  DATA "サンプリングを開始しますか？"
  1169. 12680  DATA "『麗美亜』を終了しますか？"
  1170. 12690  DATA "ＰＣＭ音声データをクリアしますか？"
  1171. 12700 'DATA ,,,
  1172. 12710 '
  1173. 12720  DATA "ＣＤをセットして下さい","ディスクがセットされていません"
  1174. 12730  DATA "ファイルの記述が正しくありません"
  1175. 12740  DATA "指定したファイルが見つかりません"
  1176. 12750  DATA "指定したファイルが既に存在しています"
  1177. 12760  DATA "ディスクの容量が足りません"
  1178. 12770  DATA "ディスクが書き込み禁止になっています"
  1179.